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ABSTRACT 


when sta TIC EXERCISES THE “AAL1-K” ANALOG CIRCUITRY. THE PROGRAM 
BETES HILL TYEE OUT THe EROGAM T1TL tien oestont 

Ta 6 tateta tT SED fhe Hoc (ReNTOREE'E,feR"=: Sgt 
wen WA ete eyo HONITOR MODE FOR RIT 15. INE g 19 rive eNO YPED. 
THAT - RUN F VERIFY THE li- LY OPERATIONAL. 
Pert s Ee Wels Ray oe Ret Me 

T v PenTR! AND_’ SIMULTANEOUSLY) 
PRU AY eran Pratl pe ri TER 
T D MON! TOR AND AND AA T A NEW LETTER DESIGNATOR TO BE 
T *” WHILE RUNNING WILL ENABLE THE SOFTWARE SWITCH 


YPED. NG A_'t 
REGISTER YVALUE TO CHANGED. 


RODEFTED fO"ENRGLE' THE OPERATOR TO eHECI OUT THe RALL-X OPTION 


One TN THE ORIGINAL DIF Dsrie, SUCH AS ABT TRATION 
ae "eile tel oH Sara Tre a Petits 
prachostie ead of SHBUCD RON” ROT} 0 rou att AY HAVE TO 
RUNNING THIS DIAGNOSTIC. Ro Section 10. 


REQUIREMENTS (EQUIPMENT) 


A. POP-11 course 
B. AA1L1-K QUAD OPT 
C. <OPTIONAL> VR1 
LOADING PROCEDURE 


WITH 16K _OF MEMORY AND A CONSOLE 170 TERMINAL 
ION MODULE INSTALLED 
4 OR STORAGE SCOPE 


USE STANDARD PROCEDURE FOR LOADING BINARY TAPES. 
STARTING PROCEDURE 


THE PROGRAM STARTING ADDRESS IS ’200’. 
THE RESTART ADDRESS IS ’204’. 


CONSOLE SWITCH SETTINGS 


S PROGRAM HAS BEEN MODIFIED TO RUN WITH OR 
T A HARDWARE SWITCH REGISTER. 


HOU 
} RE FER TO. i TNOVTOUAL on (B) WHO N THE PROGRAM IF Sire eo. 
L 


OLE SWITC 


SEQ 0002 


7.0 


7.2 


~ ©. CONTROL SWITCHES — of fi 


DOL 


ERRORS 


COnMERT AS FO" rhe Pipe, OF FALLURE. ENPDATHER  QGRC OP ICR TION oF 


ERROR CAN BE OBTAINED FROM THE COMMENT AT THE ERROR PC OR THE "WEST ITSELF. 


TEST PROCEDURE 


A. ros na c ‘ Ort ae , Ma yh aed THE gt iB hig THAT IS ADDRESSABLE 
ALSO I DES ALL CONT INTERRUPT AND 


INATELAze STGNALS,, THE LOGIC. TEST ALSO INCLUDES PROVISIONS 


B. STARTING SEQUENCE 


1. TYPE ’AL’ TO RUN THE AUTO Losers TEST. 
2: THE PROGRAM WILL THEN EXECUTE A LOGIC TEST ON ALL AVAILABLE UNITS 


C. CONTROL SWITCHES 


TYPING tC WILL Enna Se THE PROGRAM TO EXIT AND RETURN 
TO THE KEYBOARD MONITOR. 
2. TYPI te HER N SOFTWARE SWITCH eateries ENABLED WILL 


REPOR T VALUE AND WAIT FOR 
SWITCH OCTAL FUNCTION 
Sw1S=1 1 T RROR 
Swi4=1 0 HOOP NT T oy 
eHig=1 Thir8 T T T 
Swie=l 10000 TO c CONNECTED 
SWll=1 004000 NHIBI ST auNTERATIONS 
SwW10=1 00 XTERNAL Lay Ris GNAL CONNECTED 
SwO9=1 1000 wors Cc MEN ODE 
SwOS=1 O04Xxx LOOP ON TEST IN SUR 7:0 
D ERRORS 
REF. TO 6 
E RESTRICTIONS 


IF A STORAGE SCOPE IS CONNECTED, POWER MUST BE APPLIED TO IT. 


F. EXECUTION TIME 


IT TAKES APPROXIMATELY 25 SECONDS WITHOUT TEST INTERATIONS. 


AUTO DISPLAY TEST 


FO RHE Und OR STORAGE SCOPE SCOPE ON THE ARLISK DISPLAY CONTROL. 


B. Tyee *AD’ TO RUN THE AUTO VISUAL DISPLAY TEST. 
THE PROGRAM WILL THEN EXECUTE THE VISUAL DISPLAY TEST. 





SE@ 0003 


SEQ OOL" 


1. gh Sed Ao ay if. UeLL ENABLE THE PROGRAM TO EXIT 


AND RE 
2. pad #6 WHEN 30 


CONSOLE SWITCHES 





D. ERRORS 


SWITCH REGISTER IS ENABLED WILL 


RAM TO CHANGE THE SOFTWARE SWITCH REGISTER VALUE. 


FUNCTION 


ny Ons 
MODE 
SPLAY PATTERNS 


nue 


THE ONLY ERRORS IN THIS TEST ARE DETECTED VISUALLY. 


E. RESTRICTIONS 


IF VR14, CHANNE 
IF STORAGE SC 

THE “AUTO-CAL 
RUNNING THIS 


F. EXECUTION TIME 


MUST BE SET TO “1 & 2” POSITION. 
MUST BE_APPLIED. 

C)" MUST HAVE BEEN RUN PRIOR TO 
N ON THE “AUTO HARDWARE TESTER”. 


IT _ TAKES APPROXIMATELY 3 MINUTES TO COMPLETE THIS TEST 


BEFORE IT REPEATS 


MANUAL LOGIC LOOP 


A. NAS 908 - pROVEOED te ENABLE THE OPERATOR A SIMPLE PROGRAM 
ae REPAIR OF THE AALI-K. SWITCH REGISTER BITS 15:13 
SELECT eit REGISTER TO OBE LOADED AND BITS 12:00 CONTAINS THE DATA TO BE LOADED. 


B. STARTING SEQUENCE 


1. TYPE °ML’ TO RUN THE MANUAL LOGIC LOOP. 
2. THE PROGRAM WILL NOW LOOP AND LOAD THE VALUE OF THE 
SWITCH REGISTER BITS 12:00 INTO THE SELECTED AAL1-K REGISTER. 

C. CONTROL SWITCHES 

SW15:13 REGISTER SELECTED 

000 DAC # 

001 DAC #1 

010 DAC #2 

O11 DAC #3 

1XX STATUS REGISTER 


NO PROVISIONS ARE MADE FOR LOGIC ERRORS. 
E. RESTRICTIONS 


NONE 


THIS IS A NON-ENDING PROGRAM LOOP THAT CAN BE EXITED BY TYPING fC. 


SEQ 0005S 


7.6 


GOl 


MANUAL DISPLAY LOOP 


Spits LORF PROVIDED FOR THE OPERATOR TO VERIFY OPERATION 
brat ONVERTER AND MULTIPLEXER. 


STARTING SEQUENCE 


1. TYPE *MD’ TO RUN MANUAL DISPLAY LOOP 
2. THE PROGRAM WILL NOW LOAD A “RAMP PATTERN” INTO EACH D/A CONVERTER. 


CONTROL SWITCHES 


1. TYPING tC WILL RETURN CONTROL TO tHE KEYBOARD MONITOR. 
2. SW10=1 WILL SELECT EXTERNAL DELAY MODE. 


NO PROVISIONS ARE MADE FOR LOGIC ERRORS. 
RESTRICTIONS 


THIS LOOP IS PROVIDED TO eNABLE THE OPERATOR TO ADJUST THE D/A CONVERTER. 
STARTING SEQUENCE 


2: THE PEQGRAN WILL Ou, LOno THE CONTENTS, OF THE SHITCH REGISTER. 


CONTROL SWITCHES 


J: PERG 15 bibs SAT IKE 00 AMR EIEN To SAESKESOUEPEAARS TARE surrow REGISTER vaLU 
S 


NO PROVISIONS ARE MADE FOR LOGIC ERRORS. 
RESTRICTIONS 


! 


SEQ 0006 


HO1 


AUTO DISPLAY TEST PATTERN DESCRIPTIONS 


DISPLAY HORIZONTAL LINE 
IZONTAL L IS PLAYE PE BY TIALLY 
Setting? Mt 3 a ane rats a tev PERO Q AND TH Then al HEN 2 Bhs 
ARE SISPLAYED™ USING T THE “DISPLAY INTERRUPT TENABL 
DISPLAY VERtICAL LINE 
8 OVERCAST. IS DISPLAYED ON THE SOPs IN THE SAME MANNER 
LINE EXCEPT NOW THE Y VALUE 
IS INCREMENTED WHILE HOLDING THE X VALUE AT 1000. 


DISPLAY SQUARE 


N 
FULL SC 0 R 
TO NEGAT F S E y aa 
THEN X I ae te WHI ne 
FULL SCALE AGA L 0 


SEQ 0007 


i 


I0l 


SEQ 0068 
MISCELLANEOUS 


AA11-K BUS & VECTOR ADDRESS MODIFICATION 


MODIFY LOCATION ’SBASE’ IF BASE ADDRESS IS NOT 170416. 
MODIFY LOCATION ’SVECT1" IF THE VECTOR AND PRIORITY IS NOT 100360. 


*#NOTE IF EITHER VALUE IS CHANGED, THE PROGRAM MUST BE RESTARTED AT 200. 
XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP. 
THIS DIAGNOSTIC HAS THE “APT” HOOKS BUT HAS NOT BEEN TESTED. 


POWER FAIL 


A POWER FAI WIL. CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED. 


MULTIPLE AA11-K INTERFACE TESTING 


WILL ate Gan THE ATER OF Ag THE Paogeen WILL REPORT THE 
NUMBER ie My ie EST IS evectE ED ort FIRST TIME. 
IF THE OPERA fisHes to INAd IT “AUTO-SIZE” OF LOCATION “SENV” MUST BE SET. 


RESTRICTION 
POWER MUST BE APPLIED TO A STORAGE SCOPE IF CONNECTED. 
EXECUTION TIME 


+. Execution Se HE THOUT NTERRY Tons. - 

2. EXECU ee HE AUTO DISPLAY TEST IS: 

3. oleae OF THE MANUAL LOGIC LOOP IS: 

4. EXECUT ci NOH MANUAL DISPLAY LOOP Is: 

S. RATOR THe MANUAL CALIBRATION LOOP IS: 


EXECUTION 
OPERATOR DEPENDANT 
USER LINK TO 1/70 DEVICE 
OpERATOR Th eenttne fe N PROVIDED IN ORDER FOR THE 
et OR Tet anne OF ry COCATTO Na ON THe LPAL1-KX 
Bus. HIS CANNO DONe SIRECTLY 
PROCEDURE : 
1) START THE PROCESSOR AT LOCATION S$UTK: 
2) THE DIALOG TO EXAMINE A LOCATION IS AS FOLLOWS: 


E OR OD 


10. 


JOl 


DEVICE ADDRS= “OCTAL ADDRS” 
XXXXXX 


WHERE XXXXXX IS THE CONTENTS OF THE SPECIFIED LOC. 
3) THE DIALOG TO MODIFY A LOCATION IS AS FOLLOWS: 


E OR D “Dp” 
DATA= “DATA TO BE DEPOSITED” 


4) THE PROGRAM WILL STAY_IN THIS LOOP UNTIL THE OPERATOR 
IS FINISHED. AT THIS TIME THE PROCESSOR SHOULD BE 
HALTED. 

NOTE: THE OPERATORS RESPONSE IS ENCLOSE IN QUOTES. 


LPAL1 (SYSTEM) DIAGNOSTIC SUMMARY 


DIAGNOSTICS FOR THE LPA11 ARE WRITTEN AT THREE LEVELS: (1) 
TOTAL -11 SYSTEM, (2) LPAL1 SYSTEM; AND, (3) LPAII1 OPTIONS. 


LEVEL Is 5 a TO I ATi Fe hr TO THE LPAIL1 SYSTEM. 
Seep ttons Dae 11 oBRe EXERCISE 


Train ATHE CRU The LEVEL Aa carte 19, os Nt be a AF 
HE USE a Me ae ‘Yo T oe wired OPTION DIAGNOSTIC 


ead ole Sh fois ishreeemaeen THEN. 


LEVEL TH TAGNOSTICS A pi TERM NING bee aERROR,, eS IN 
FAC ve cIFiE ” ON 
THE ERROR. a: OF 

“GROUP »REQUIR Ao Y THE 


USE CHECK 
BRETTABTION, "ab ae nest ang EXTRA be ie Baeont 


SYSTEM. THIS RECONFIGURATION INVOLVE UNIBUS TO THE 
LPA’S I70 BUS. 


THE DIAGNOSTIC FOR THE M8254 FALLS INTO THE GROUP “B” CATAGORY. 


Berznm & 


SEQ 0009 


THE LPA11-KX DIAGNOSTIC KIT WILL INCLUDE: 


OPTION 


LPA11-KX 
M82eS4 
AALI-K 


AR1L1 


DR11-K 


KW11-K 


LPS11 


AD11-K 


mM8200-YC 


LEVEL 2 
i] B” 
A 


oDnovoaDaGqaIe?SaesW?aeWa7aeeT,rD,GgageNaOWAaAHDDPD DD DW 


MD-11-DRLPA 
MD-11-DRLPN 
MD-11-DRLPB 
MD-11-DZAAC 
MD-11-DRLPC 
MD-11-DRLPOD 
MD-11-DRLPE 
MD-11-DZARA 
MD-11-ODZARB 
MD-11-DZARC 
MD-11-DRLPF 
MD-11-DZDRG 
MDO-11-DRLPG 
MD-11-DZKWK 
MD-11-DRLPH 
MD-11-DRLPI 
MD-11-DRLPJ 
MO-11-DZLPC 
MD-11-DZLPD 
MD-11-DZLPI 
MD-11-DRLPK 
MD-11-DZADL 
MD-11-DZLPL 


MD-11-DZLPM 


KOl 


DIAG. TITLE 


LPAL1-K SYSTEM DIAG. 
M82S4 (IPBM) DIAG. 
AAL1-K DIAG. 

AAL1-K DIAG. 
LPA/AR11 DIAG. #1 
LPA/ARL1 DIAG. #2 
LPA/ARI1 DIAG. #3 
AR11 DIAG. #1 

ARI1 DIAG. #2 

AR11 DIAG. #3 


' LPA/DR11-K DIAG. 


OR11-K DIAG. 
LPA/KW11-K DIAG. 
KW11-K DIAG. 
LPA/LPS11 DIAG. #1 
LPA/LPS11 DIAG. #2 
LPA/LPS11 DIAG. #3 
LPS11 DIAG. #1 
LPS11 DIAG. #2 
LPS11 DIAG. #3 
LPA/AD11-K DIAG. 
AD11-K DIAG. 


LPA/MB200-YC BASIC 
MICRO-CPU R/W TEST 


LPA/MB200-YC 
JMP+ROM READ TEST 


SEQ 0010 
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DRLPB.P11 TABLE OF CONTENTS SEQ 0011 

5 FINITI 

188 BPERATTONAL SUT TCH SETTINGS 

180 TRAP CATCHER 

189 STARTING SS(ES) 

193 acti 

an Connon TER BLOCK 

T MA X-ETABLE 

ee ERROR BS NTER raBLE 

473 INITIALIZE THE COMMON 

531 SUBROUTINE TO LOAD A TRAP CATCHER 

a0 LOAD DEVICE ADDRESSES LOCATIONS 

Bb TEST # DESCRIPTION 

563 

565 INITIAL HEADER TYPEOUT AND WAIT FOR OPERATOR 

611 DETERMINE THE R OF AALI-K THIS SYSTEM 

649 TI EST THAT HE AALI- TO CPU 

676 T2 TEST THAT T T EARED 

630 3 TEST THAT ORDED WITH 87777 

704 Ty TEST THA rs) LOATING 1 PATTERN 
7el TS TEST That I CLE 

735 TS T THAT Y WITH 87777 

749 17 TEST THAT Y A FLOATING 1 PATTERN 

767 T10 TEST THAT 

781 Til TEST THAT WITH 87777 

238 Te Test THAT T A FLOATING 1 PATTERN 
g28 T14 T St THAT COB EB WITH 87777 

B42 T1S TEST THAT HOLD A FLOAT NG 1 PATTERN 
B55 THe TEST THAT T CAN HOLD DIFFERENT DATA 
20 Tho Teer That PaaP rAeRStEY canoe se ano cxenreD 

944 Tel TEST THAT T g can Be BFS CL EARE 

969 Tee TEST THAT T T 

934 Te3 TEST THAT Y (BIT 4) BE SET BND. CLEARED 
1017 Tes TEST THAT T (BIT 6) ¢ BE 
10 S TEST THAT (B T oBet = 
104 T2b TEST THAT STORE (BIT 10) SE 
1062 127 T THAT WRITE THRU (BIT Ll) CAN Be T 
1077 T30 TEST THAT IN IFY TS THAT THE READY BIT 
3s ras TES ther Qibe 2 itveneley ON Gael S218 Me Reany FLAS 
tie rs TE A tHEN » READY B Ae AND SET TER BeLay (SW12=1) 
1184 734 TEST THAT . DELAY AND FAST INTENISIFY BITS 
1 09 T3S T THAT NT T E, Ly STORE, WRITE THRU 
1 16 T TEST THAT GIs ( = 
1 T TEST THAT TER ( =0) 
1252 T4O TESt THAT RESET CLEARS DAC HS REGISTER (SWO9=0) 
1808 Fab TERT THEY RESET SEP*BRCBMougen’°"=" {83-1} 
1288 T4 TEST THAT T © 400 (5wO9=1 ) 
1306 T43 TEST THAT RESET SET DACI TO 4000 (5wO9=1) 
1324 TH TEST THAT RESET SET DACe TO 4000 (SwO9=1) 
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DRLPB.P11 TABLE OF CONTENTS SEQ 0012 
1342 Tas TEST THAT RESET weet opacs fo 
l TEST THAT E SW10=0 
133 P Teani EXTERNE “peta erro pea “SHl0=1 
144 END OF P 
1480 
1481 
1482 
1483 
1484 
148S 
1486 
1487 VISUAL TESt PATTERNS 
1466 0 www ewww wceceneense= 
1489 
igi DISPLAY ACVERTICAL CINE 
tee8 BT RE HSNION VEE ot CDISPLAY SQUARE ) 
ue Raut pf sptay ROUTINE 
68 ieeet es 
1818 TS1 St HAT CH 3 IS AT +2.5 BIPOLAR 
1832 TS2 T THAT CH 4 IS AT -2.5 BIPOLAR 
1 3 TS3 T THAT L (CH 3) 2 TéRT THAN +3 VOLT N HIGH 
1 TS4 T THAT ( ) : ge +400 MV ur N LOW 
1887 TSS TEST THAT WRITE-THRU ( ) LESS THAN +400 MVOLTS WHEN LOW 
1902 TS6 -ST (CH SS) IS LESS THAN +400 MVOLTS WHEN LOW 
1917 157 T THAT T L (CH SS) I GREATER THAN +3 VOLTS WHEN HIGH 
tees Tey Test That NEL ( Mg ) ATER THAN +3 VOLT N HIGH 
1395 : + that t teh 26) g BEATER T Mod MVE TS WHEN Cod 
1993 Tes Test tHat D DONE CLEARED AND SET 

106 T&S ROUTINES FOR DAC 5 - ‘ 
MANUAL Te T 
DYNAMIC Cet 


BRATION 
MISC. SUB-ROUTINES, ASCII MESSAGES AND SOFTWARE HANDLERS 
SUBROUTINE 19 BRAK @ HORIZONTAL CINE 
14h, % FOR VISUAL TEST PATTERNS 
ee b TNaRY abr IMAL AND TYPE ROUTINE 


3 Foul POUT INE 
a 0" OCTAL MASc). AN AND TYPE 


eyryrpryrurururyryruryrury 
BUAVQOSOS ING 


ss 


3180 

3e$7 

3336 Te a TROUT INE 

3373 AD AN OCTAL R FROM THE TTY 
13 T COMMUNICATI ROUTINE 
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TABLE OF CONTENTS 


TRAP TABLE 
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SEQ 0013 


td hoon 11-DRLPB-A 
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AAL1-K DIAGNOSTIC MACY11 27(654) 14-DEC-77 20:20 PAGE 1 


. REM [ 
LPA. MAC 
WELCOME, THIS DiRGNOST IK IS ONE iN a SERIES OF DIAGNOSTIC 
DESiGNEO IN ORDER TO AID YOU _IN TESTING THE LPA-11XX OPTION. 
I HOPE THAT YOU HAVE READ THE alert A UB Ni SECTION OF THIS 
DIAGNOSTIC. IF YOU HAVE, YOU KNOW ABOUT ALL OF THE DIAGNOSTICS 
THAT ARE AVAILIBLE FOR TESTING THE LPA SYSTEM. 


GOOD LUCK ! 


[ 
-GLOBL DORLPXe 


SEQ 0014 


MAINDEC-11-DRLPB-A 


ORLPB.P11 


001100 


000011 
O00001e 
000015 
000200 
177776 


000003 
000004 
000005 


000006 
000007 
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. REM : 


SEQ 0015 


THIS IS A LIST OF TESTS ~~ FROM THIS DIAGNOSTIC. THESE TESTS COULD NOT 


BE DONE THROUGH THE LPA-1 
Test THAT My. Lo GH BYTE, OF STATUS REG CAN BE CLEARED 
y rat 6 YTE OF STATUS REG CAN BE _ CLEARED 
INTR. er LEVEL INDICATE 


Test THBT DISPLAY DOES. NOT ENT . AT LEVEL INDICATED 


- TITLE HAINDEC-11-DRLPS-A AALI-K DIAGNOSTIC 
tb tere r eQute nto ORP 

i nay , Ss. Nivea ; 
! SPROGRAM BY EOWARD C. BADGER 


 STHIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
j SPACKAGE (MAINDEC-11-DZQAC-Ce), SEPT 14, 1976. 


Serre BASIC DEFINITIONS 
arate “1 Gores OF THE STACK POINTER *## 1100 #%* 

“EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT; SCOPE ::BASIC DEFINITION OF SCOPE CALL 

; ¥MISCELLANE SUS DEF INITIONS 

ATs it HEOBE Be FOR HO HORIZONTAL TAB 
GR 38 ; On SAR IBGE RE TURN LINE FEED 

= e \—_ 
S00 FOR. BRRIAGE, RET 


; STACK Lert REGISTER 


“ase Bulic oH REGISTER, REGISTER 


. EQUIV 
STKLMT= 1 5534 


ee Ie 


; *GENERAL PURPOSE REGISTE NIT 

RO= %0 38 TER 
Rl= % 33 TER 
RS= “5 + LE 

= % 

RY= “4 ge & 

RS= “Ss t GENERAL REGISTE 
R6= % 33 G ster 
R7= % He REGISTER 
SP= %~6& i “POI 

PC= %7 AAONTER 


;*PRIORITY LEVEL DEFINITIONS 


MAINDEC-11-DRLPB-A 


ORLPB.P11 


Bs 


ee ee ee be ae eb ae be ae ae ae Be ne Be pe fe Be Be bee ee he he he be be pe 
SRR OHS BONEN LO O00 NOUN LW ODS IER POE oe Gen 





AA11-K DIAGNOSTIC 
BASIC DEF iNITIONS 


Fe 


eet eae 


mrmemme mom 
4 BH ht et 


eeeeeeeeee 


uNnD <<<<<<<cc<c<c 


eeeisses-: 
sui 


ve 


ORG ERE Ie uun 


oO 
Ww 


DODOOODO OWMDDODWMOMWo: 
A ee 


AHA ei 


Bh 


MACY 1 
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se 


T 


i 


aes 


ite Soli 
oO 


FINITIONS (BITOO TO BIT1S) 


SEQ 0016 


pe ' 1-DRLPB-A 


dRLPB.P 
138 


~ 
Pan) 
Ow 
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BASIC DEFINITIONS 


- EQUIV B1T09,B179 
“ESUIY Bitoe Bits 
- EQUIV 1706, 8116 
- EQUIV IT *BITS 
cu MM eH IE 
ESuIY 1103, B1t2 
“EQUIV TO1,B1Ti 
[EQUIV B8ITOO;BITO 
 % C “CPU” TRAP VECTOR ADDRESSES 
iRBVEE 4 ;;TIME OUT AND OTHER ERRORS 
RESVEC= 10 ; ;RESERV! ay AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 2s" Tt" 
TRIVEC= 14 jj TRACE TRAP 
BPTVEC= 14 ; BREAKPOINT TRAP (BPT 
10T = HH 179 Tput TRAP {1OT) *##SCOPE ## 
= ee 
ENT eG ; ; EMULATOR tRAP (EMT) **ERROR#* 
C=34 Fi te TRAP 
::TTY KEYBOARD VECTOR 
TPVEC= s titty INTER VECTOR 
PIMBVEC= 0 +:PROGRAM INTERRUPT REQUEST VECTOR 
ABASE=170416 
AVECT1=100360 
APRIOR=200 
 $BTTL OPERATIONAL SWITCH SETTINGS 
i SWITCH USE 
:# 1S HALT RROR 
3% 14 oN FRE 
3 13 NHI T TYPEQUTS 
iS if in Tong ‘ 
3% ll wet T 
i 19 EX AY SIGNAL CONNECTED 
iH b ON T wnt 
a wo’s C EMENT MODE 


3 
-SBTTL TRAP CATCHER 


ALL, UNUSED Log OCATIONS FROM 4 - 776 conrern A_".+2,HALT” 
i tGE E Os ATCH ILLEGAL TRAPS AND INTERRUPTS 

; *LOCATION ‘oon ONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
si 


ae BS Snes, RTE UP ELE 
i 


BEGIN ;; JUMP TO STARTING Poo REST PROGRAM 
EGIN 1 START ADDRESS 
MP DYNCAL ;JUMP TO BYNAMTC DAC CALIBRATION 


SEQ 0017 


23 


000046 
oooose 


ALOW—Oo IL we 


ob Pb bo Ob ee 
WD NOUI£ WOW 


prurunufyrererorcrererererens 
888888 


ye Nok 


1-DRLPB-A 
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ACT11 HOOKS 


SEQ 0018 


-SBTTL ACT11 HOOKS 


$ = RERKKEKRERRRRER RRR RKRESKKKRARKAKRARARRREARAHAAKAARAARARRASREEE 
HOOKS REQUIRED BY ACTI1 


vp ;SAVE PC 
= 

sen ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"WORD O ;32)SET LOC.S2 TO 2ERO 

: =$SVPC tt RESTORE PC 


251000 
-SBTTL APT PARAMETER BLOCK 


Se Se 36-36 2 SE SE SE Sb SE SE SE Me ae Sb SE ae SE a HE SE SEE 9 HE a Eb 0 a a EE 


Ser LOCATIONS 24 I FOR AP 
TE ee eee SAVE CURRENT LOCATION, 


X=. 


22 33567 POWER MER FAIL TO. POINT TO START OF PROGRAM 


Shon | Hash 18 apr e| ARURE, sapres® PNTR. 


itessesiniaeeved invacracuonsaunarnacnsnnsuaensenseasensensensess 


gE TUP T PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
t TRTERFACE SPEC. 
APTHD: 
IBTS: .WORD O ;; TWO HIGH ITS OF 18 BIT MAILBOX ADOR. 
: - WORD SMAIL 3; S T MA LBO« (BITS 0-15) 
TSTM: . 30 ; ; RUN 18 OF L ST TEST 
PASTM: - WORD 6 ;3RUN TIME IN SECS. 157 PASS ON 1 UNIT (QUICK VERIFY) 
UNITM: .WO 1 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
"WORD SETEND-SMAIL ; LENGTH MAILBOX-E TABLE (WORDS) 
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DORLPB.P11 COMMON TAGS SEQ 0019 

gee -SBTTL COMMON TAGS 

44 5 He HE eA ME ae HE SE A a a A a ae a a a a a a 

28 :#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

53 USED IN THE PROGRAM. 

231 001100 -21100 
SCMTAG: ;;START OF COMMON TAGS 

000000 
000 STS UNM: 


;;CONTAINS THE TEST NUMBER 
fae ape SoD 
i LeoNTh fe AL ERRORS co 
a : Po te NeTRUCTION 
TA SOF "BAD? DATA 


TRING "BAS? DATA 
Het TO BE USED 


ow 
<< 
44 


Sich: 


NENOF LOVES 





wo 
< 
4 


5 QOS arenes: 
a 


ITE 
RMAX 





a4 


Zz 
3 

e8 6 Ge Ge oe 66 Ge Ge Se oe 
+ 


us 








| ad aul aul cue aed eee ced axel opel coed xed ened onal aml eel od eel aed aedd aed aed ond aed el ed el ed eee ee et ete 


: 

3 : 

Jt . 

8 . 
9 001 TOB: -:BYT AUT CATOR 
g23 601 3¢ | SPNTRe: “BYTE aa HOSE INDICATOR 

001 1 . OrsrLA T 
eee Boi a9 172870 ISPLAY: Hor 3P cay eee rc teR 
ee: Ha ie a 
3 BOL 1s8 1 4 TS: 1 4 ha aa é: ADORESS 
se, Gilles 177568 bot Tere” Beast i 
go3 901 S O02 Ibs: af e. Bic: BIg re Gite Ene REQUIRED 
261 O01 28 000 ST PFLG: [BYT j t+ aE RM TNAL Le" FLAG A BT h7> SBeYES) 
ebe 001160 oo00000 SREGAD: .WORD 0 Eee Nene) T ote Bers Mo 
264 001162 o00000 SREGO: .WORD O 5 }CONT Hc SHEED) C 
265 001 64 000000 R G A attono 0 i }CONT AINS eee 
ses Bot coon : .ASCII 727 > ;QUE THON ERE 2 
503 Boll72 oonDte ep: RCE 1B itn FEED 
270 ; peseouedsessiusesseussusasensectes ie A A a6 AE Sb ab ab bb HH a a a a a aa aE 
ere aSTTL APT MAILBOX-ETABLE 
273 eseeessueveseeesessnuussoeensnusneceseessssuscenscesssssssne 
ere Sretti, .womp anor {ifeteMeEUPM 
638 tAL: WORD Are AL Ha AL ERROR NONBER 
278 STESTN, "WORD ATESTN 
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DRLPB.P11 APT MAILBOX-ETABLE SEQ 0020 

279 001202 SPASS: APASS  ;;PASS COUN 
280 001 DEVCT: .WO ADEVCT i }DEVICE COUNT 

001 UNIT:  <WOR AUNI 33 20 { R 
282 D012 SMSGAD: GAD iM ESS 

NOlel SMSGLG: :; GLG ;;MES LENGTH 
284 oBiSts SE TABLE: . it :3;APT ENVI 9 NI TABLE dye 

ties H e ee , 
ool we BS EE Se, SRT EE 
288 001220 o00000 SUSWR: .WO AUS ;;USER SW ie 
289 OOleee 9300000 SCPUOP: WORD ACPUOP AiSE py TI 
52? 3% 17 cogsce. 11720=03, 11740=04, 11745=05 
595 + T1 H A TIME _ 
; BIT sELOATING ee Bex paecesson 
29S * T MORY MENT 
296 001224 000 $mMAMS1: .BYT AMANS 1 i HIGH S.M.S. BYTE 
837 001225 000 SMTYP1: .BYT AMTYP1] ::MEM. T Kai 
98 5% MEM. TYPE =-- (HIGH BYTE) 
299 +a NSEC CORE=001 
300 % g Roseous 
302 001226 000000 éMADRI1: .WORD AMADRI ;;H Kel 
+ gb he aie 3 bytes, THIS WORD AND LOW OF “TYPE” ABOVE 
304 001230 000 $mamse: .BYTE AMAMS2 #3 
30S 001231 000 MTYPe: .BYT AMTYP2 ;; 
388 01835 o008e : BY Ha Gi or BLEBe 
J . ie) . . 

308 Bats 000 Ibid -BYT AMT 33 oe 
a Bis Be ey ee | Seaeerrene 
13 vif 1 DOO IT : .BYT AMT 33 
31§ Boisaq i Vecri: “Hone AVERT HP Me AGS ALK PRIORITY #1 
3i¢ boise $754 wages: “HORD Base ee T_Vecyonastls PRION! GHOER Test 
312 Bb 1se8 bo8da8 Va: i Vic 
317 001254 900000 $COW1: WORD ACDWI :CONTROLLER DESCRIPTION WORD#1 
a sre? 
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DRLPB.P ERROR POINTER TABLE SEQ 0021 
320 .SBTTL ERROR POINTER TABLE 
322 j sTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
323 HE INFO RMATION a OBTAINED BY USING THE INDEX NUMBER FOUND IN 
324 Toga ION SITEME é site R INDICATES WHICH ITEM IN THE TABLE I IS PERTINENT. 
325  ¥NOTEL me IS O ONLY PERTINENT DA 4 IS ( 
358 aN TES: kK ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
28 5% M ;:POINTS TO THE ERROR MESSAGE 
358 1a at POINTS TO THE pare HEADER 
330 Lf DT ;;POINTS TO THE DATA 
331 1a OF ::POINTS TO THE DATA FORMAT 
335 
334 001256 SERRTB: 
= 
337 ;ITEM 1 
338 001256 016547 . —M1 ;AAL1-K STATUS REGISTER IN ERROR 
339 001260 017370 DH1 *ERRPC IBASE 
340 O0le6be 021006 DT :SERRPC STA S$GDDAT S$BDDAT 
341 001264 Oell2e DFO 
x3 1 1 a be REGISTER IN ERROR 
ee 

Suc 651598 eed DH ERR FgAee AS 06 BAD 
346 001272 021020 DTe RPC DACO  $GDDAT S$BDDAT 
347 001274 Oellee2 OFO 
323 001276 016627 a ie TER IN 
351 £51508 pisses a ERR Re BASE OR BAD 
352 001302 021032 OT3 RPC DAC $GDDAT S$BDDAT 
353 001304 G21122 OFO 
355 ;ITEM 4 
356 001306 016656 EMY ;DAC #2 REGISTER IN ERROR 
357 1310 017370 DH1 tERRPC IBASE GOOD. 
358 001312 be 1044 pT :SERRPC DAC2 $GDDAT SaDDAT 

9 001314 1l22 0 
3e¢ ;ITEM «6S 
362 001316 016705 EMS Pose REGISTER IN ERROR 

4 wk BS {ase oe ERRPC DAC3 Seopar Sab0AT 
365 001324 Oell22 DFO 
3E9 ;ITEM 6 

1326 016734 \ EM ;AALI-K FAILED TO INTERRUPT 

36 1330 017424 SERRPC  IBAS 
370 1332 021070 TS :SERRPC STAT 
37 001334 O2li22 DFO 
373 ;ITEM 7? 


SEQ 0022 


JOe2 
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AA11-K_ DIAGNOSTIC 


ERROR POINTER TABLE 


MAINDEC-11-DRLPB-A 
DRLPB.P11 


a 
8 
Qa 
za 
oO 
a 
w 
uJ 
eg 
b a 2 Q é 
S 3 & c G 
w e a ie. 
w ry Ws ui S wi’ Se 
7] a 5 3 Ww i 
se ob vc ES FE fh Bees 
4 of 2.8 [32 3:8 cop bos Hehe 
© 8 ea S x25 res gg a 
a q 3 tas 
x 3 “~ 5 ¥ oor 
z 1 be oa 2 xz a Fe — “we 
m a e a i i an YE> 
ww SS -O Ve> SZ o uw>Zro 
a an a ee a 
a en es re es as a oo 
gous SG GEG CSen CER OG Cet 
qua gua Gis fia aua Gua iw rt 
a 
kw 
oO 
“~ 
at 
% 
= 
= 
us 
w 
uw 
lJ 
Oo “ curr Omm rrr wrt wrrT = 
PP2O Q3O00 Fan0 SoM Qo sano Samo Samo 8 
WOQ0 -—WQOQO0 —WAOO —WwWoOo =WOooO =—Woo pat at pat tt ee ememsaceces 
= = = = = = = 
VT) LPT) ly WW VT WwW WwW 
F rm i - i= i i 
onl onl onl ons aml ms Lom) 
SEP GEPY FPSy ALSY See BLY BRON pvoy 
.7yoO- ro- omo- aT 4 =~TO- Ura TH Ta 
wea Rao Rea RAGS RAS RASS RASS RASS 


ROR PE ANTE EE BE RA NNT LRT RES SNE BSS SEO UOT MON OP ROT eR, 


MMMMMM rTrszTIFITFITIIIIFIIFIITIIFIIIITT 
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11 
ORLPB.P11 ERROR POINTER TABLE SEQ 0023 
428 001436 LPCI: 
4 001436 170460 KMADO: .WORD 170460 ;BASE KMC ADDR. MAY BE PATCHED BY USER. 
431 001440 LPMR: 
4 oo14s 170461 KMAD | : .WORD 17046041 ;>DO NOT <;KMC-CSR ADDR 
ee . 

4 Boi 170462 KMAD2: .WORD 1704%60+2 ;>PATCH ‘; 
a 001444 LPSO: 
436 001444 170463 MAD3: .WORD 170460+3 ;> THIS AREA < 
bf OC 1446 ° 
~ DO1446 170464 K : .WORD 17046044 ; 
4 901450 LPADH: 
44 14 170465 K : .WORD 17046045 ;>DO NOT ‘ 
441 1452 LPMS1: 
442 1452 (170466 KMAD6: .WORD 170460+6 ;>PRTCH < 
443 1454 LPMSe: 
nae 001454 170467 KMAD?: .WORD 170460+7 ;>THIS AREA < 
446 001456 000360 VECTOR: .WORD AVECT18777 ;BASE_ VECTOR OF KMC 
42 14 000364 VECTPS: :.WORD 4+4AVECT1&777 :VECOTR ADDR. +2 
49 001462 o00004 VERSN: .WORD 4 ;CURRENT VERSION NUMBER OF MICROCODE. 
451 001464 000000 .DVLS: .WORD O ;/DEVICE LIST OF 1/0 ADDR. DEFINED 
4 001466 000020 -BLKW 16. BY tft 
4 901 40 ;ADJUSTMENT TO NEXT AAL1-K’S ADDRESS 
4 1 VVECT: 40 :ADJUSTMENT TO NEXT AALI-K’S VECTOR 
438 001 le DELAY: 40 :DELAY COUNTER FOR DELAY LOOPS 
m4 BB} 170416 Tate 170416 
459 001 170420 DACO: 170420 
460 18 170422 DACI: 170422 

1544 170424 pace: 170424 

15 DAC: 26 

1 V: 

1 IvS: 

001554 021154 BEGIN: CLR TEMP 

ue? 001560 Bos037 021164 CLR VER ;RESET POINTER 
468 001564 021166 CLR VER 
468 0015 o3 BR BEG 
4 Oo15 poo? 000001 021154 BEGINI: MOV #1, TEMP 
471 1 pn5240 BEG: NOP 
472 .SBTTL INITIALIZE THE COMMON TAGS 
473 ;;CLEAR THE COMMON TAGS (SCMTAG) AREA 
474 001602 012706 001100 MOV BSCHTAG, Ro ;;FIRST LOCATION TO BE CLEARED 
475 001606 CLR (R6)+ ?:CLEAR MEMORY LOCATION 
476 00161 gee 06 001140 CHP #SWR,R& ;;DONE? 
4 001614 13 NE .-6 ;;LOOP_ BACK IF NO 
478 O01616 012706 001100 MOV SSTACK, SP ::SETUP THE STACK POINTER 
479 ;; INITIALIZE A FEW vectors 
480 O01622 012737 O21422 oD0020 MOV #S$SC STOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
481 001630 012737 O00340 Oo0002e MOV #340, astoTvect+e ;;LEVEL 7 


ee ee 


ee ee 
WONT CW 


et 


wwii) 


Reo 


—- 


bb eh 
2 


ytsat4 001762 64S: 


bigr3? 000176 00114 ESS: 
012637 OOCoo4 = 66S: 


888 888888 888888ss ~ 


hb bh hh hh 


OC) 
AOS 


SSREGH BES Sk 


005037 
hae cee 


67S: 


68S: 


S$: 








CBFRAP: 
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tEVe VEL Poon FOR ERROR ROUTINE 
VECTOR FOR TRAP CALLS 


W ae R : oat ie FAILURE VECTOR 
co ss CEVEL 7 ZE NUMBER O OF ITERATIONS 
a. jit Siac OOP ADDRESS FOR SCOPE 

% A “=1" toe F Re THake meee: STER. tgs 

aseriacamiee LT ema ire 
sbSuh SWR ttSeET FSR A HSROWORE SWICH REGISTER 
epee Pore ees 

‘ i BRANCH NO TIMEOUT TRAP OCCURRED 


= -1 
Rov Gees, (SP) 1 Beane anol Teno ATIMEQUT 
nov ebIsPReg OrspLay's > nn eee 
MOV (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 


CLR ;;CLEAR PASS COUNT 
BITB paPTSIZE, SENVM ives. USER SIZE UNDER 


ROW SSeurec, SWR tENGS Ose AP? suTTCH iChorer 


i THIS SECTION OF CODE HANDLES INITIALIZING LPA-11 FUNCTIONS 


MoV RO, -( 

HOV KMADO RO T KMC-11 ADDRESS. 

MOV SKMADLR i SET ADDR: oF BRB LIST. 
INC RO ;UPDATE ADOR. 


ADOR. 
DONE ee a 


BNE ;NO - 
CLR .DVLS CLR 
MOV (SP)+,R1 
MOV (SP)+'RO 
CLR a 
INIT 
SUBROUTI TO LOAD A TRAP CATCHER 
MOV ee4e, ; LOAD 
MOV #240 RI ;LOAD R1 
MOV Re, (R1)+ ;LOAD .+2 
CLR (RL)+ ;LOAD HALT 
MOV R1,R2 :LOAD R2 


MAINDEC-11-DRLPB-A 


DRLPB.P11 


$36 
$37 


abe Ee: 


in 


8 A 


NR NR 


BERD DD 


: 


WELEIS So 


+ 


560e 
Ururut 


AAL1-K DIAGNOSTIC 
SUBROUTINE TO LOAD A TRAP CATCHER 


TST 


MACY11 27(654) 


(R2)+ 
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;BUMP R2 
ge02e7 001002 CMP Re, #1002 TEST FOR LAST 
.SBTTL ey pevite. ac QODRESSES LOCATIONS ’ sation 
ot 7 Ooi SSB 10$ ROY a iLORD €0 BREE 55 ESS 
ee +4 
2760 Bo1se0 CMe sive pone” 
I BNE 10$ . 
; O01540 MOV aDACO, RO ie ADDRESS 
Vv #2,R1 ?LO 
12S: ADD Ri: (RO)+ ; UPDAT REAL DEVICE WORD 
i TS (RL)+ ue 
: 000012 CMP #1 yR1 EST FOR DONe 
137 001244 001550 nov SVECT1,IV ‘LOAD INTR. VECTOR ADDRESS 
27 TE0500 001550 BIC #1 IV 
5 018 MOV IV, Vs 
7 001 Dp #2’ TV 
1 124 D211 VB SVECT1+1,BRLEV1 ;LOAD BR LEVEL 
27 177437 021160 BIC #177437, BRLEV1 
013737 Ge1160 Gel ibe MOV BRLEVI, BRLEV 2 
b85385 — RYE Pc’ ;EXIT 
.SBTTL INITIAL HEADER TYPEOUT AND WAIT FOR OPERATOR 
101 AL: “ASCII. /AL/ 
10 AD: ‘A cI 7AD/ 
ll ML: . “MLZ 
11 MD: [ASCII /MO/ 
041515 MC: [ASCII /MC/ 
7 72 INITL: JSR PC, LDTRAP 
535 eats TST TEMP ;TEST IF START OR RESTART 
Det BNE CTRLC > RESTART 
oo0042 Ss aey : TEST IF MONITOR 
1063 MTEST ;BR IF NOT 
Ol TY :CALL MESSAGE PRINTER VIA ’EMT’ 
12706 001100 WAITIN: MOV. — sSTACK, SP iReSET ctAck 
CKSWR : iRE FOR CTRL G 
10441 ROLIN ; READ TWO CHARACTERS 
1 921170 MOV @(SP)+, OPRIN ;READ THE CHARACTER 
021170 BIC #0, OPRIN ?MASK OTHER CHARACTERS 
Di; oo2242 021170 MP AL, OPRIN TEST FOR “AL” 
BF i435 Seo IF YES 
023737 O02244 021170 CMP AD, OPRIN A FOR “AD” 
00 14 g 11 :BR iF YES 
237 002246 021170 M ML, OPRIN : TES FOR “ML” 
001421 EQ :BR FI YE 
0237 37 002250 021170 CNP Mp OPRIN j TEST FOR “MD” 
B24749 ooz2S2 021170 iad MC, OPRIN nest FOR "MC" 
061415 BEQ 1s$ BR IF YES 


SEQ 0025S 


33 
2 


CUNIUIUIUIUTUIUTUTUT 


BSONEA LOWS 


Re 


rroo 


CSO VTNED 


COCO OSKOK oo 
he he pe pe 
NOU £ Wwe 


SERERIERe 


=8 


oo 


aS NE 


Wwe 
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INITIAL HEADER TYPEOUT AND WAIT FOR OPERATOR SEQ 0026 
7e 10440 TYPE 
Oe 74 gi7ei7 QMARK 
376 BR WAITIN ;WAIT FOR OPERATOR AGAIN 
tet ooe44e 10$: JMP MTEST ;RUN THE LOGIC TEST 
137 007354 118: JMP VISUAL ;RUN THE VISUAL PATTERN 
10 Root ae Bt Ad86 1e$: JMP AUTCAL ;RUN THE AUTO CALIBRATION (FACTORY ONLY? 
002414 137 013500 13$: JMP MANUL ;RUN THE LOGIC TEST 
eassa 000 137 syteaytt 14S: JMP FULRMP ;RUN THE RAMP PATTERN ON FOUR DAC’S 
DOO1 14014 15$: JMP CALDAC ;RUN THE MANUAL CAL OF THE DAC 
002430 104401 CTRLC: TYPE 
Boeiee RAZ SES CONTC 
Rays 001202 CLR We 
40 000717 BR WAITIN 


-SBTTL DETERMINE THE NUMBER OF AAL1-K ON THIS SYSTEM 
@ 013737 O01eSO OO011e6 MTEST: MOV SBASE , SBODAT ;GET THE BASE ADDRESS 
20 Bet ee CLR .DV 


- CLR SUN ;CLEAR UNIT # 
3% MOV SBDDAT,STMDAT ;/READ DEVICE REG SBDDAT,PUT DATA IN STMDAT. 
70 7 7 Oesse2e rst a 
76 1526 001126 ed VADDR , SBDDAT ;UPDATE THE BUS ADDRESS 
OH 7 Ob INC SUNIT :UPDATE UNIT COUNT 
12 2s: NOP F 
4 TST SUNIT ;TESt IF ANY EXIST 
‘ BNE 3$ ?BR IF SOME ARE THERE 
ERROR 10 :BASE ADDRESS CAUSED AN BUS TRAP 
3$: TST EVER > TEST IF_# HAS BEEN REPORTED 
BAT 4§ :BR IF IT HAS 
FOUND1 ;TELL OPERATOR THE # OF AALI-K’S 
MOV SUNIT, -(SP) 
TYPOS 
. BYTE 2 
* BYTE 
TYPE 
FOUND2 
MOV SUNIT EVER ;SAVE THE # OF AALI-K’S FOR LATER 
Is ag 15, EVER :SET “REPORTED # FLAG” 
4S: CMPB EVER, SUNIT :+ESt IF ANY HAVE GONE AWAY 
BEQ 5 :- BR I ALL ARE STILL HERE 
ERROR sEXIS ING UNE? FAILED TO RESPOND NOW 
S$ CLR UNIT :RESET UNI INTE 
JI PC, LDTRAP :LOAD TRAP CATCHER AND BUS ADDRESSES 
LTEST: NOP 





sald ‘heen’ Te 
DRLPB.P 


647 ose26 000 


DOSesd 


AA11-K DIAGNOSTIC 
TEST THAT THE AALI-K RESPONDS TO THE CPU 


Boe?ae 


653 02644 005737 001534 


655 002660 005737 001534 


6 
659 002674 005737 001534 


002710 005737 001534 


665 002724 a4 001534 


14) 002730 o40e 

667 002732 2626 

668 002734 104010 

ees 002736 912737 000006 
671 

672 

673 002744 


ooo004 
ese COe746 005037 001124 


6 
679 002772 023737 001124 
003000 


680 30 001401 

681 OC300e 104002 

682 

683 

684 

68S 

686 003004 Od00004 

pat 003006 012737 007777 
6893 

6390 

691 

639e 023737 001124 


003034 
693 3042 001401 
6394 3044 104002 


001106 
000004 


oo00004 


001126 


001124 


001126 


th 


1S: 


tk 
+8 


ik HAT THE DAC 
+6 co 
MOV 87777, SGDDAT 
; MOV SGDDAT, IDACO 
; MOV QDACO, SBDDAT 
CMP ScODAT, $BDDAT 
BEQ 
ERROR 38 
i STEST 4 
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MOV 
MOV 


MOV 
TST 


MOV 
TST 


MOV 
TST 


MOV 
TST 


MOV 
TST 
BR 


CMP 
ERROR 


Cc 
CLR 
MOV 
MOV 
CMP 
BEQ 
ERROR 


BO3 
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j TESER SNARE RH RET ETOAT THE ARLIOK RESPONDS TO THE CPU 


T THAT THE AALI-K RESPONDS TO THE CPU 


#3$, SLPAOR 
#15, ERRVEC 


aSTAT, STMDAT 
STM 


pat 
908CO, STMOAT 


QDAC1, STMDAT 
STMDAT 


goace STMDAT 
TMDAt 


QDAC3, STMDAT 
S$TMDAT 


es 
(SP)+, (SP)+ 
10 


re re ee renee ee 


+411 


3$: 


;LOAD BUS TRAP RETURN 

;7READ DEVICE REG STAT,PUT DATA IN STMDAT. 
;7READ DEVICE REG DACO,PUT DATA IN STMDAT. 
;7READ DEVICE REG DAC1,PUT DATA IN STMDAT. 
;7READ DEVICE REG DAC2,PUT DATA IN STMDAT. 


;7READ DEVICE REG DAC3,PUT DATA IN STMDAT. 


AND RESTORE LOC. 4 
eee HE STACK 
TIMEOUT WHEN ADDRESSING THE AALI-K 


#6, ERRVEC 
a esea neue fab ete Gdasnasssitstteth litt resuersnnnsnncnene 


T THE DACO REGISTER CAN BE CLEARED 


SGDDAT 


SGODAT , ADACO 
aDACO sp00RlT 


SGDOAT, $BDDA 


HERR ennneNSEHAn ON nOEAOEEOENEEAEEEOEEROAEOOE EEE HE EEIEES 


;LOAD EXPECTED 


;7 PUT DATA FROM SGDDAT TO DEVICE REG SACO 
;7READ DEVICE REG DACO,PUT DATA IN S$BDDAT. 


=C 
;;BR IF & 
sir  RROR, DACO REGISTER NOT = O 


REARS HHRERENH ERE T HT AAT THE DACD REGISTER CAN BE LOADED WITH #7 


GISTER CAN BE LOADED WITH #7777 


[Hatta cca enaeknehAnOEnaEEEREENECHEEAREE HERES E REA EIEE IEEE 


;LOAD EXPECTED 


;7 PUT DATA FROM SGDDAT TO DEVICE REG DACO 
; /READ DEVICE RE REG DACO,PUT DATA IN SBDDAT. 
;;8R IF igtn = 


;ERROR, DACO REGISTER NOT = 7777 


RRM RRR RRR ARERR REE E REALE HERES 


TEST THAT THE DACO REGISTER CAN HOLD A FLOATING 1 PATTERN 





SEQ 0027 


MAINDEC-11 a 


ORLPB.P11 


7 003104 
ae 
ee 
fia Boatte 
711 OO031ee 

gig 
71 
714 
71S 003124 
716 003126 
717 
718 
719 
720 
7el 003152 
7ee 003160 
7e3 003162 
724 
7 
559 
728 003164 
723 003166 
730 
731 
73e 
733 4 
oe 
533 Ooase2 
736 003224 
ba 
538 
740 
741 003226 
74e 003230 
743 003236 
744 003244 
ne 
oa 
a 3264 
OU 
beg baaB ee 
751 003274 


Bia 


ooo004 
005037 


ooooo4 
012737 


nptay 7 


1 04003 


93 | 
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TEST THAT THE DACO REGISTER CAN HOLD A FLOATING i PATTERN SEQ 0028 
ee ne en meee 
000100 001166 aoe #100, STIMES ;;D0 100 ITERATIONS 
094000 001124 - MOV #B81T11,$GODAT ;LOAD EXPECTED 
5% MOV SGDCAT, IDACO ;7 PUT DATA FROM SGDDAT TO DEVICE REG DACO 
5% MOV DACO, SBODAT ;/READ DEY G PUT DATA IN SBDDAT. 
001124 001126 CNP 300 Sat’ SBDOAT on we hoe {SOHPARE. THE Pe Bara 
RROR si ; 0 ISTER FAILED TO HOLD A FLOATING 
001124 2s: SR Soom i hance ORE ones . 
BNE i$ TEST MORE DATA 
; [PO noeaaeneneeeeeeebereeeneeanenesuasastenee 
tee TEST THAT THE DAC #1 REGISTER CAN BE CLEARED 
j juaeeatyueueunnernaunseunennannaeeneeneiHaenneeneiHOENae0i0008% 
001124 CLR SGDDAT ;LOAD EXPECTED 
;% MOV SGDDAT, 3DAC1 ;7 PUT DATA FROM SGDDAT TO DEVICE REG DACI 
. MOV C1, SBDDAT ;/READ DEV G DAC1,PUT DATA IN SBDDAT. 
001124 oo1126 ’ CMP llama CaRB ARE 
Q Ss BR IF éouac 
ERROR DAC1 REGISTER NOT = 0 
Lee R eee eee eee eRe eee rere e REOTETER Cat) ME LOROED MITH STTT? 
TESt 6 TEST THAT THE Y REGISTER CAN BE LOADED WITH 87777 
i 1eilateensssentstuutconatsnubessssenssesheanesoseicateoatseas 
007777 1001124 MOV 87777, SGDDAT ;LOAD EXPECTED 
3% MOV SGDDAT, IDAC1 37 PUT DATA FROM SGDDAT TO DEVICE REG DACI 
. MOV T ;/READ DEY G DAC1,PUT DATA IN SBDDAT. 
001124 ool11e6 ’ chr age Bar ar iF eS Ooe ACB ARE 
ERROR 3 ERROR, DAC] REGISTER NOT = 7777 
g Ree TEE TNTNAT THE VY REGISTER CAN HOLD A FLOATING 1 PA 
tkTE TEST THAT THE Y REGISTER CAN HOLD A FLOATING 1 PATTERN 
jjeattatensunsunnennansaueneenaesatAneesedonsOEeneESEROEEOEEOS® 
000100 001166 MOV #100, $TIMES ;;D0 100. ITERATIONS 
004000 001124 et MOV #81T11,$GODAT LOAD EXPECTED 
3% MOV SGDDAT, IDAC1 ;/7 PUT DATA FROM SGDDAT TO DEVICE REG DAC! 
5% MOV SBDDAT ; ZREAO DEVICE REG. pack PUT DATA IN SBDDAT. 
001124 OUi126 CMP sEODDAT A 
BEQ ;;BR IF ist IS SAME 
ERROR ;ERROR, DAC] REGISTER FAILED TO HOLD A FLOATING 
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5e§ 803508 

754 

755 

756 

pat 

see 05306 

760 

ooh 

5e5 

764 003332 

76S 003340 

7 003342 

76 

768 

769 

770 

771 QO3344 

772 003346 

773 

774 

775 

Ze posary 
ee 

778 Baad 

7739 +=O03404 

784 

783 

7. 003406 

a= pate 
ee 

A Bose 

7 

7 

ar 

7 003444 

34 


7 


887380 


104004 


ooo004 
012737 


37 ; 
1401 
104004 


oooco4 
012737 
012737 


023737 
001401 


7 
001360 


bos037 
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TESt THAT THE Y REGISTER CAN HOLD A FLOATING 1 PATTERN 


001124 2s: ASR SGDDAT DATA 
BNE is ‘GRAND T TEST MORE DATA 


A yal Sak St bet gh Sh dt hh Sah Sgt at lll 
TEST THAT THE DAC #2 REGISTER CAN BE CLEARED 


SEQ 0029 


ieTE 
j jHateeeacunenntenensonsansenneinaixo0h000000H00000 0000000000008 
001124 ace” SGDDAT ;LOAD EXPECTED 
5% MOV SGDDAT , BDAC2 ;/ PUT DATA FROM SGDDAT TO DEVICE REG DAC2 
3% MOV goace T ;/READ DEVICE REG DAC2,PUT DATA IN SBDDAT. 
001124 001126 CMP t, T . 
Q TSTil ;;8R IF ERA. 
ERROR 4 ; DAC #2 REGISTER NOT = 0 
3 eee ee Re ee eeeT THAT THE DAC @2 REGISTER CAN BE LOADED WITH 
:&TEST 11 TEST THAT THE DAC #2 REGISTER CAN BE LOADED WITH #7777 
i HeeHaaeusennennetnaneneusoenaeaeenGHheEea04Ne000H000uEEREEIOX 
007777 001124 MOV 87777, SGDDAT ;LOAD EXPECTED 
5% MOV SGDDAT, aDAC2 ;/ PUT DATA FROM SGDDAT TO DEVICE REG DAC2 
+ % MOV T ;/READ DEV G DAC2,PUT DATA IN SBDDAT. 
001124 oo0112 ’ MP Repoat separ | AGE ARE 
EQ BR IF iECAL 
ERROR 4 ;ERROR, DAC #2 REGISTER NOT = 7777 
; SR Ee eae aS REGISTER CAN HOLD A FLOATING 
taTE TEST THAT THE DAC #2 REGISTER CAN HOLD A FL OATING 1 PATTERN 
i jeeatenseuauenuunauunsensansaeenansateKAtenGeKeeeseixaexxa0ee00% 
000100 001166 MOV #100 STIMES ; ;00 100 ITERATIONS 
004000 001124 - MOV IT11, $GDDAT LOAD EXPECTED 
5 MOV SGDDAT , ADAC2 37 PUT DATA FROM SGDDAT TO DEVICE REG DAC2 
+ MOV T ;/READ DEVICE REG DAC T DATA IN SBDDAT. 
001124 oo1126 ' CMP OORT SBDOAT ' SA OE ORE THE Bara 
peton OR TF oO RROR REGISTER FAILED TO HOLD A FLOATIN 
001124 es: EGR SGDDAT CHANGE vittg bars 
i$ 'BR AND TESt HORE DATA 
z Ree eee R ETT THAT THE DAC #3 REGISTER CAN BE CLEARED 
tkTEST 13 TEST THAT THE DAC #3 REGISTER CAN BE CLEARED 
j jeeseuneenseunannauunonnauesaeenensaeenAEenSeKeenseeX00e0000000% 
001124 acre SGDDAT ;LOAD EXPECTED 


7% MOV SGODAT , ADAC3 ;7 PUT DATA FROM SGDDAT TO DEVICE REG DAC32 
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TEST THAT THE DAC #3 REGISTER CAN BE CLEARED 


001124 


007777 


001124 


000100 
004000 


001124 


001124 


001111 
002222 
OO4444 
007777 


oooo00 


001126 


001124 


001126 


001126 


001534 


001534 


001534 


001534 


001534 


5% MOV B0AC3, $2008» ;/READ DEVICE REG DAC3,PUT DATA IN SBDDAT. 
CMP ue COMPARE 
BEQ gooat BR IF EQUAL 
ERROR ;ERROR, DAC #3 REGISTER NOT = 0 


; Th ll, ak ht et ehh abd tt kta gad So edt tty 
‘TE TEST THAT THE DAC #3 REGISTER CAN BE LOADED WITH 87777 
a SESEESEAEASESESESSESEOAEASSSSESESASESEESESHESERESAESESESEEEESE 


satis 

87777 , SGDDAT ;LOAD EXPECTED 
;% MOV SGDDAT , JDAC3 ;7 PUT DATA FROM SGDDAT TO DEVICE REG DAC3 
:% MOV g0ec3, SeoneT ; /READ or Monae DAC3,PUT DATA IN SBDDAT. 


;;8R F éouAL 
;ERROR, DAC #3 REGISTER NOT = 7777 


; al a a i at eh att ae tg be 
;&TEST 15 TEST THAT THE DAC #3 REGISTER CAN HOLD A FLOATING 1 PATTERN 
i HanvanaeeyensaenuensaunseeneeisenseeAiHaenneeneHiexsa80R02%0% 


CMP 
BEQ gree 
ERROR 


SEQ@ 0030 


iit SCOPE 
MOV #100 STUER ;;D0 100 ITERATIONS 
- MOV eBITl T ;LOAD EXPECTED 
5% MOV SGDDAT, ADAC3 ;7 PUT DATA FROM SGDDAT TO DEVICE REG DAC3 
+ MOV QDAC3, SBDDAT ;/READ DEV G DAC PuT DATA IN SBODAT. 
’ CMP + eRepoAT Cae ARE The 
BEQ ;;8R IF Sane 
ERROR ; #3 REGISTER FAILED TO HOLD A FLOATIN 
2s: ASR T i 
is BR TEST MORE DAT 
5 prteevesssanenatenuecsensenuesssusouceSesusssetecsussssassats 
ATE TEST THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA 
; t/SENUAoeneunseduanenuenoeeeee at SheeHaAEHOSES0EOEEEONEAOHEOD 
#1111, STMDAT ;LOAD DAC #0 
5% MOV :/ PUT DATA FROM STMDAT TO DEVICE REG DACO 
MOV $2008 i ¢ 7 ;LOAD DAC #1 
5 MOV a0aC1 ;7 PUT DATA FROM STMDAT TO DEVICE REG DACI 
MOV syua4. " ;LOAD DAC #2 
5% MOV sTyper ce ;7 PUT DATA FROM STMDAT TO DEVICE REG DAC2 
MOV #7777, $TMDAT ;LOAD DAC #3 
;% MOV STMDAT, BDAC ;7 PUT DATA FROM STMDAT TO DEVICE REG DAC3 
MOV #0, STMDAT ;CLEAR STATUS 


* MOV STMDAT, ISTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 
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DRLPB.P11 Tb TEST THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA SEQ 0031 

B60 003754 012737 OO1111 001124 MOV #1111,$GDDAT ;LOAD EXPECTED 
Bee 3 3737 001124 oo1126 *- CoP ae. ae ee 
ee BaNoos | ObISGi a, i 1s0R TF EGuRt 
Bes 1040) ERROR ;ERROR, SELECTED DACO IN ERROR 
B67 004004 012737 O02222 001124 1S: MOV #2222 , SGDDAT ;LOAD EXPECTED 

3 5% MOV QDAC1 , SBDDAT ;/READ DEVICE REG DAC1,PUT DATA IN SBDDAT. 
& 004022 023737 001124 001126 CMP $GDDAT, SBDDAT - COMPARE 
87 1401 Q 2s ;;8R IF EQUAL 
87 003 ERROR ;ERROR, SELECTED DAC1 IN ERROR 
ta 004034 012737 OO4444 001124 2s: MOV #4444, SGDDAT ;LOAD EXPECTED 
B76 arak anh meen 5% Hoy B0AC2, SBDDAT ; /READ DEVICE REG DAC2,PUT DATA IN SBDDAT. 
878 etter 1401 BEQ 3S , ;;8R IF SAME 
873 004062 104004 ERROR 4 ;ERROR, SELECTED DAC #2 IN ERROR 
881 OO4064 012737 007777 001124 3S: MOV 87777, SGDDAT ;LOAD EXPECTED 
Bs acim gueeui: Monae tenn 3% Hoy C3, SB00AT | ; 7ZREAD DEVICE G DAC3,PUT DATA IN SBDDAT. 
885 004110 001401 BEQ ST17 —_ ;;BR IF 
B86 OO4¥ii2 104005 ERR -E SELECTED DAC #3 IN ERROR 
888 js Senenuaneetonnsneseeneusevseuesneunouenscseshoosianessanstestes 
eo 004114 Aust ceed ereqquenniconeusseuscelcessobeasenensscenanenansnnnenseens 
Ba bowies Bise37 posses = Sotisé Be ser t?, scboaT $400 10 NERO EXPECTED 
ess Bilse Shira BREA eRe Ske 3 
Bae 04146 023737 001124 oo1126 * CHP $e00at, SEbDAT Pr ee ee ee ee 
897 OO4iS4H 001401 Q : ;;BR IF SET 
B98 004156 104001 RROR 1 ;RESET FAILED TO SET READY 
36% AtEST Eg treeeetear rear ener Intensiy Can or set me ceemes 
355 0041 LienseregoepqunnesconceinensnanaanennevnnseeneeenmeanEnen aE eamn 
308 pouies 500997 ooc002 001534 “MOV #BIT1,STMDAT ;LOAD BIT 1 
306 :# MOV STMDAT, ASTAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
307 004200 012737 oo0202 oo1i2e4 ’ MOV #81T7!81T1, $GODAT ;LOAD EXPECTED 
309 + % MOV STAT, SBDDAT :/READ DEVICE REG STAT,PUT DATA IN SBODAT. 
310 6 37 001124 oo1126 ° CMP ? t,$s0paT ’ SE PRE ; 
$11 red art BEG 1 ;;BR IF SAME 
Si2 OO04e26 10400 ERROR 1 ;ERROR, STATUS NOT = 202 
$13 004230 012737 o00000 001534 1S: MOV #0, STMDAT :CLEAR STATUS REGISTE 


teal ge ! 1 “re 
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“fuel Fast 
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NTENSIFY CAN BE SET AND CLEARED 
;* v Srna asTar 3/7 PUT Ara 8 ROM sit aT TO DEVICE REG STAT 
:* nov TAT 4SgoDAT ; 7READ Device Rec se: DATA IN SBDDAT. 
BEQ TSTel ;;8R IF SAME 
ERROR 1 3E , STATUS NOT = 200 
: -RESERERRESRAERHMRERER EEK EE REX REE EKER SEE REREKAE KER EERE SERRE RES 
tkTEST 21 TEST THAT MODE BIT 2 CAN BE SET AND CLEARED 


ee re nt er rne 


+é 
MOV #81T2, STMDAT ;LOAD DISPLAY STATUS 

5% MOV STMDAT, ASTAT -/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
MOV #81T7!B1T2, scoDAt ;LOAD EXPECTED 

5% MOV TAT,S ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
CMP + egBB DAT 
BEQ ;;BR IF E 
ERROR 1 i EREOR TATUS NOT = 204 

1S: MOV #0, STMOAT LEAR’ STATUS 

5 MOV STMDAT, aSTAT 37 PuT are F TMDAT TO DEVICE REG STAT 
MOV Sorte ae baT Bab ex PECTED 

;# nov SSTAT, SBDDAT | ; 7READ suvece REG STAT,PUT DATA IN SBDDAT. 
Beg e908 . ;;BR IF OL ARED 
ERROR 1 ;MODE FAILED TO CLEAR 


g jeuqueucucenengueseecsguesseusvengecsoeseresenenesenensesestaes 
tRTES TEST THAT MODE BIT AN 

jt: RR. Re | 
ures SCOPE 


#81T3, STMDAT ;LOAD 
- Vv sir T, aSTAT / PUT onre FR AT TO DEVICE REG STAT 
, v oTatrs. scopat’ Gab EX pect 
;# MOV QSTAT, SBDDAT ; 7READ savers REG ees DATA IN SBDDAT. 
CMP SGODAT, SBODAT aa on 
ERROR 1 A“ ERROR, STATUS NOT = 210 
1S: MOV #0, STMOAT ;CLEAR REG. 
3% v TMDAT ;/ PUT DATA F ar TO DEVICE REG STAT 
my 8 Saye Oe OAD EXPECT 
3% MOV STAT AT ; 7READ sree REG aoa DATA IN SBDDAT. 
CMP Gopat, $8D0AT ; COMPAR 


SEQ 0032 
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DRLPB.P11 T22 TEST THAT MODE BIT 3 CAN BE SET SEQ 0033 
p04 1401 BEQ TST23 ;;BR IF EQUAL 
38 Bo4esB | TH4CDL ERROR 1 : ;ERROR, STATUS NOT = 200 
344 ARES T ESO EET AP EO REEAP ETP ED EMME REP ANS BEEN 
pe " ji listeteeneesenseaneneseuseetoensensnneeeneeseanensesesonsennens 
3s Bede 35 gogog 000020 001534 - Roy #BI1T4, STMOAT ;LOAD STATUS 
77 5% v STMDAT, ISTAT -/ PUT DATA FR TMDAT TO DEVICE REG STAT 
76 oo4sse 012737 o00220 001124 v sorte! at ty scopAt ; LOAD pe TEDS — — s 
980 wet Gunn ethos ;% Mov DSTAT, SBODAT ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
382 Bo4878 aye 1 go $g008 — ;;BR IF ager . 
98 rs 104001 ERROR 1 ;ERROR, EXT. DELAY BIT FAILED TO SET 
984 004602 012737 oO00000 o01S34 1S: MOV #0, STMOAT ;CLEAR BIT 4 
5% MOV STMDAT, STAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 
6 004620 012737 o000200 001124 MOV #8117, $GDDAT ;LOAD EXPECTED 
;% MOV QSTAT, SBDDAT ; /READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
990 004636 023737 001124 001126 CMP SGDDAT,SBDDAT ’ , 
44 001401 BEG TST24 ;;8R IF Sane 
46 104001 OR 1 *ERROR, EXT. DELAY BIT FAILED TO CLEAR 
so ESTES ORE AP TERT ELE GIT es ean SE ee 
eae & bg Seeeeecncgquensecadesnnsssvesseanbessctacacansensnnenenenenens 
337 pouees 899993 000100 001534 7 Rov #B1IT6, STMDAT ;LOAD DISPLAY STATUS 
939 3% MOV STMDAT, STAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
1906 004670 012737 000300 001124 MOV #81T7!81T6, SGODAT ;LOAD EXPECTED 
1 T -/ - 
1066 004706 023737 001124 oo1126 ’ Cap 225 8at SbpoaT speaaee OE BARES ee oa ne 
1004 004714 001401 BEQ TSTes ;;BR IF EQUAL 
1Dbe 004716 104001 ERROR 1 ;ERROR, STATUS NOT = 300 
: ; 3 vest os “TEST THAT CHPEL (BIT $) CN BE SET 
| . CHANNE 
1808 004720 oo0004 j jeaataSeeaseenatsnuenanensenseeteneseesuednoennernaneaeeaaeaeys 
iBt 004722 012737 001000 001534 * MOV #B1T9, STMDAT ;LOAD DISPLAY STATUS 
101 + MOV STMDAT, ASTAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
1014 004740 012737 001200 oo112e4 ’ MOV #81T9!81T7, $GDDAT ;LOAD EXPECTED 
101 : ; ’ 
IB13 oo47se 023737 oo11e4 oOlle6 ** Cap $c0ont; SBooRT emgelg |  ainctat tulle: 
1018 004764 001401 BEQ ST26 ;;8R IF EQUAL 
1018 004766 104001 ERROR 1 ;ERROR, STATUS NOT = 1200 
1 1 ” g 5 SERRA AAAS E AE RAE RARER ERA EA LARA RELA KALARLAAKARAARAALAAAR 
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DRLPB.P11 T26 TEST THAT STORE (BIT 10) CAN BE SET SE@ 0034 
1022 ;*#TEST 26 TEST THAT STORE (BIT 10) CAN BE SET 
ips 770 04 s a ee ee ee 
1086 772 p0o09? 002000 001534 "MOV #B1T10, STMDAT ;LOAD DISPLAY STATUS 
1027 5% MOV STMOAT  ASTAT -/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
1028 005010 012737 o02200 001124 MOV #81710! BIT7, SGDDAT ;LOAD EXPECTED 
1 + MOV asSTAT AT ;/READ DEVIC G STAT,PUT DATA IN SBDDAT. 
163? o00S026 023737 001124 oOoll26 ’ CMP SDBAT SEDDAT ' EN ASBARE 
1032 005034 001401 BEQ Ste? ;;8R IF EQUAL 
t 33 005036 104001 ERROR 1 sERROR, STATUS NOT = 2200 
1035 $3 RKSKKSAAKAARESRRARARRKAEARKKARAAAARAKHKRARERRRRRRRRERRRARRRRRRKEE 
1036 :&TEST 27 TEST THAT WRITE THRu (BIT 11) CAN BE 
Hin 4 40 oo0004 ee ne a 
: 33 Boeous 012737 oo4000 001534 “MOV #BIT11,STMOAT ;LOAD DISPLAY STATUS 
1041 :% MOV STMDAT, ASTAT -/ PUT DATA FR TMDAT TO DEVICE REG STAT 
104e 005060 012737 oO4200 oo1124 ’ MOV #81T11!81IT7, SGODAT ; LOAD OepeCr D 
1044 ; MOV TAT T ; /READ DEVIC G STAT,PUT DATA IN SBDDAT. 
1045 005076 023737 001124 001126 cH $copat, Soon een ae {COnPARE . 
1g4? 005106 104901 ERROR 1 ~  ORROR, STATUS NOT = 4200 
1049 3% PTOETTTTTTTOTITITITITTITITTTTTTITITTTTT TIT TTT TTT TTT TTT TTT TTT tT 
10S0 :&TEST 30 TEST THAT INTENSIFY BIT SETS THAT THE READY BIT 
ies 110 ORE aOR NR RICO OE int teat ae Bites 
1625 - apes ; AND THEN SETS AFTER A DELAY 
1054 112 27 1000 MOV ® RO 
ped 116 hd habe CLR g ;LOAD EXPECTED 
1056 005122 012737 000001 001534 MOV #81TO, STMDAT : INTENSIFY 
1 5% MOV STMDAT, ISTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
1088 005140 012737 oD00200 001124 MOV Sarr? $epDAT ; ; LOAD ORPECTED 
ibet 5% MOV TAT SB00AT ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
{bes bbe tes bai 401 a Sees Beg Ss t, . BR IF E 
1064 0051 104011 RROR 11 -" Ee EADY FAILED TO sET AFTER A DELAY 
1065 :IS STORAGE scopé EONNECTED BUT Not TURNED ON ?? 
1 33 PTC TTT TCT CTO TTT TTT Tete TET TTT TOT eT TTT TTT TTT TTT TTT TT tt TT TTT | 
1067 ;&TEST 31 TESt THAT MODE 1 (INTENSIFY ON DACO) SETS THE READY FLAG 
1pe8 170 a _ 7 TNR saynamprenaaaetren a7 maa aaa te oie 
1070 - a ; AND THEN SETS IT 
iors BOSI7E BIE7? BR009 oossev «BY. aaPPIR ra scoonr © PRLGMEPERED 
1073 0052 012737 000004 001534 MOV saite STMOAT it OAD MODE 1 
1075 ;% MOV STMDAT, ASTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
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11 31 TEST THAT MODE 1 (INTENSIFY bn DACO) SETS THE READY F SEQ 0035 
;# MOV aSTAT, SBDDAT ;/READ DEV STAT,PUT DATA IN SBDDAT. 
00S232 105737 001126 TSTB $B0DAt vigt RERDY 
36 100402 BMI es ;;BR IF heaBy STILL SET 
40 104011 ERROR 11 ;ERROR, IN M 1 READY SHOULD NOT 
hs CLEAR UNTIL DACO Is LOADED 
oos242 o0042s BR TSTs2 ;;8R TO &copE 
005244 012737 O00004 001124 2s: MOV #BIT DAT : XPECTE 
005252 012737 Oo00000 001534 MOV SBS ThOAT i LODRESS BSc B | 
i MOV STMDAT , IDACO ;/7 PUT DATA FROM STMDAT TO DEVICE REG DACO : 
5% MOV QSTAT, SBDDAT ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
005300 105737 001126 TSTB SBODAT 
005304 1004 BMI TST32 ;NEXT TEST 
995306 012737 000204 001124 MOV aBIT?!BITe, scopat ERS REED 
314 104011 ERROR OR, ADY OF AILED TO sET 
; AFTER 1 OPERATION 
eee ere ETA THAT MODE © INTENSIFY ON DACI) SETS THE REA 
tETE T 32 TEST THAT MODE 2 (INTENSIFY ON DAC1) SETS THE READY FLAG 
fh UR RR a TR BL, Bh. 
005316 000004 ess 


; AND ND THEN SETS IT 


Oos3e4 61 ooo Bobet §o01124 MOV sorry! 18173, sc00AT iCGnp ExPecteD 
13737 000010 oo1S34 MOV #8173, iL 2 


; MOV STMDAT, ISTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 
5% MOV star 4S800AT ;/READ DEV ce REG STAT,PUT DATA IN SBDDAT. 
105737 001126 TSTB TES ADY 
Baesee 100402 on ;;BR IF 
104011 RROR ; + pitt MODE 2 READY SHOULD NOT CLEAR 
; i jUNT L 1 ISL D 
00s ee s 
ppeace 127 000010 001124 2S: MOV ai S$GDDAT sL EXPECTED 
4 012737 900000 001534 MOV #0, STADAT sADDRESS DACI 
;# MOV STAT, SBDDAT ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
o00S426 105737 001126 TSTB t : 
neater b70393 000210 001124 aM e81T7:B173, scpoat?** wile E 
905442 104011 ERROR ERROR, READY. 2FRILED 10 SET 
5 steprensoonsssoperrnczonsasarensennscolateldtetetiebateatiiit 
ETE TESt WHEN ERASE IS SET, READY BIT CLEARS AND SET AFTER DELAY 
44 LR RS SR A et, Be Be 
posw4 909004 sits5 SCOPE 
005446 012727 OO0001 001166 MOV #1, STIMES ;;D0 1 ITERATION 


;% MOV STMDAT, ADACI ;7 PUT DATA FROM STMDAT TO DEVICE REG DACI 
(SW1l2=1) 
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133 TEST WHEN ERASE IS SET, READY BIT CLEARS AND SET AFTER DELAY (SW12=1) SEQ 0036 
032777 010000 173456 BIT #B81T12, 9SWR ;TEST BIT 12 
001437 BEQ TST34 ;;BYPASS IF NO STORAGE SCOPE 
0127 990019 MOV #10 RO 

3 1154 CLR TEMP ;CLEAR_DELAY 
012737 O02000 001534 MOV #8IT10, STMDAT :SET STORE MODE 
5% MOV STMUAT, ASTAT ;7 PUT DATA_FROM STMDAT TO DEVICE REG STAT 
052737 010000 001534 BIS #81T1le,$TMDAT ;SET ERASE BIT 
iz MOV STMDAT, STAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
; MOV asTaT STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
105737 001534 TSTB Tmoat 
og BMI TST34 ;;BR IF 
337 021154 DEC TEMp LAY 
1366 BNE 1$ BR IF joRLaY 
300 DEC RO SDECRE NT COUNTER 
rye BRE OR i sR IF M0 Cc BRED READY AND FAILED 
ito se set Re Fe aBy als " 


;SWR 12 = 1 AND AO 
seeyegreensnnpneyeneel ME HEEL ON SEs LetT PSR ASIO PEL 


teTE TEST THAT RESET CLEARS MODE, EXT. DELAY AND Fast INTENISIFY BITS 
oo0004 ; ger pvwvnee gh mae eke ee, eer 
012737 OO0040 001166 MOV ss TIONS 
012737 000036 001534 MOV sorta orrsert2:aiti, {oudar™ 
. MOV STMDAT, ASTAT 3/ PUT onres F TMDAT TO DEVICE REG STAT 
012737 oo0200 o01124 ’ MOV 08 $ T XPEC TED 
004737 026474 JSR 
. MOV TAT T ;/READ DEV G STAT,PUT DATA IN SBDDAT. 
023737 001124 A +e8B00A ACE ORE 
001401 igus Ms pr iF 
104001 RR i RESET FAILED TO CLEAR STATUS REG 
ij ssxnesattsStventsavvensesanveneesansunebentenbetaniserstanoeases 
;#TEST 35 TT T CLEARS I STORE, WRITE THRU 
; Oa ecg imipenem se 
12737 OO0040 001166 TERATIONS 
012737 007100 001534 MOV sartiiieitiorBrraipi re. stbe 
5% MOV $7 T asTAT ;/ PuT onrA FROM STMDAT TO DEVICE REG STAT 
012737 90 001124 MOV agit? TZ $c00AT LOAD EXPECTED 
0264 JSR 
+ MOV wae ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
3737 001124 oo1126 ° MP a + eeBDDAT : COMPARE 
1401 Q ST36 ;;8R IF EQUAL 
104001 ERROR 1 “ERROR, RESET FAILED TO CLEAR STATUS 
TTT TTTETTOTT ETT TTT T TT TTT TT TTT TTT TTT TT ee TTT TT TTT TT ttt 
tETEST 36 TEST THAT RESET CLEARS DACO REGISTER (SWO9=0) 


Pe ee he be ee ee 
BESRR PSH LSSRSRRE 


De ee 


SERENE S 


furururorororofory 
Ree Ree reer 
WONT W£We-O 


iets 


Seer 


aN] 
Ww 


PARE hve Ooo NOONE 


ee ee ee ee ee ee be ee ee ee ee ee he ee pe 


rururororurororururorurururufururerur 


W 
N 


B1e737 
7 

1024 

12737 


BoN73? 


ret 
10400e 


ooo004 
045797 


001024 
012737 


737 
bleree 
1023 
012737 
sears: 
00S737 
fetaB 


oooo04 
012737 
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TEST THAT RESET CLEARS DACO REGISTER (SWOS=0) SEQ 0037 

re ene ee 
000040 001166 ' Vv #40, STIMES ;:D0 40 ITERATIONS 
001000 173174 BIT sSu03, aSHR TEST IF BIT 9 IS SET 
177777 001534 MOV #-1,STMDAT a 

5% MOV STMDAT , BDACO ;7 PUT DATA FROM S$TMdAT TO DEVICE REG DACO 
a sh RP cer saplatens 

# 
caine peneme it mov goacn, a ; /READ DEVICE REG DACO,PUT DATA IN SBDDAT. 
Q TSTa7 ’ ;;8R IF E 


801000 
177777 


001124 
026474 


001124 


861000 


177777 
Beeaea 


001126 


000040 


173108 


001S34 


001126 


175009 


001534 


001166 


OR ; RESET FAILED TO CLEAR DAC O REGISTER 
ii tiiiii titi tiiiiittiiiiitititititiiiiitiiitiiiiriiiittiiiir 


:&TEST 37 TEST THAT RESET CLEARS REGISTER SWO9=0 ) 
ee nn anes 


+é737: 
BrY $cHOS. Sone 5 He Oe ait ote ser 
BNE TSTHO : BR IF SET 
MOV #-1, STMDAT 
HOY $TNBAT,SDACL —; 7 PUT ATA FROM STHDAT TO DEVICE REG DAC! 
JSR -—«- PC, SRESET 


3% MOV T ;/READ DEVIC G DACL,PUT DATA IN SBDDAT. 
CMP ScobAt; SBDDAT SSE RE : 
es TSTHO 


Q ;;BR IF & 
eas ; RESET FAILED TO CLEAR DAC1 REGISTER 
Wiiitiiiiiiiiiitiiittttiiiitttiiiitttitiiiieiiiia 


&TEST 40 TEST THAT RESET CLEARS DAC #2 REGISTER (SWO9=0) 
ae aE SE a ae ae A a A a a a a a a a a a aa a a a aaa aa 


. 

tST40: SCOPE <a % aes 

¥ #2 AnR +HESr Ge ott 3 $s ser 
BNE TST41 ;;6R IF 


MOV #-1, STMDAT ;LOAD THE REGISTER 
3% MOV STMDAT, IDAC2 ;7 PUT DATA FROM STMDAT TO DEVICE REG DAC2 
CLR $ T ;CLEAR EXPECTED 
J C, SRESET 
3% nov @DAC2 , SBDDAT ;/READ DEVICE REG DAC2,PUT DATA IN SBDDAT. 
ST4l ;;BR IF C D 
4 od EE OR RESET FAILED TO CLEAR DAC #2 


5 62 8 a a a a a a a a Ea EE a a a 
;*#TEST 41 TEST THAT RESET CLEARS DAC #3 REGISTER (SWO9=0) 
== aE ae 0 aE a6 ab ab a a a a a a a aa aa aa a aa a a a a a aa a aaa a 


tST41: SCOPE 
MOV #40, STIMES ;;DO 40 ITERATIONS 


MAINDEC-11-DRLPB-A 
4 


ORLPB.P11 


1238 
1 


baa bee pe pee 


eh ee he er ee 


BURRS ER SoU ODN eae waa tome oS 


BEI RES BROS IIIT SI ses 
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TEST THAT RESET CLEARS DAC #3 REGISTER (SWO9=0) 


001000 
177777 


Beeahs 


001126 


003777 


172726 
001534 


001166 
172640 
001534 


001124 


001126 


T7eehe 


001534 


001124 
001126 


001166 
T7edes 


001534 


BIT #SWO9, JSWR ;TEST IF BIT 9 IS SET 
BNE TST4 :;BR IF SET 
OV #-1, STMDAT ;LOAD THE REGISTER 
5% Moy STMOAT, BOACS 37 PUT DATA FROM STHDAT TO DEVICE REG DAC3 
Se Be eRe ser 
5% MOV QDAC3, SBDDAT ;/READ DEVICE REG DAC3,PUT DATA IN SBDDAT. 
TST sso0Aat 
pee ;;BR IF C D 
OR : RESET FAILED TO CLEAR DAC #3 
iii iii iittiititittttiiiiistiiiiiiittititiis) 
:&TESt 42 TEST THAT RESET SET DACO TO 4000 (SWO9=1 ) 
en ne 
t Vv #40, STImES ;;D0 40 ITERATIONS 
T r , aSWR : IT 9 
Q 4 ;;BR IF CLEARE 
MOV 83777, STMDAT ;LOAD DAC 


aDACcO ;7 PUT DATA FROM STMDAT TO DEVICE REG DACO 
T ;LOAD EXPTECTED 


SBODAT ;7READ DEVICE REG DACO,PUT DATA IN SBODAT. 


TST43 J BR IF 
OR oa : T FAILED TO SET DACO TO 4000 

iit iii itittitttiiiiitititirsrtisiitey 

:&TEST 43 TEST THAT RESET SET DAC1 TO 4000 (SWO9=1) 

age cepa aan caaeays nseenir se ciaga sages aataga basin i soniecniogecte et 


BYy  SoubS, owe F500 NO TERA ATT 
OAD DACI 


BEQ TST44’ ;;8R IF CLEARED 
MOV 83777, STMDAT 3L 
5% MOV STMDAT, DAC ;/7 PUT DATA FROM STMDAT TO DEVICE REG DACI 
MOV #4000, $GDDA ;LOAD EXPTECTED 
JSR C, SRESE 
5 MOV QDAC1, SBDDAT ;/READ DEVICE REG DAC1,PUT DATA IN SBDDAT. 


MP +, SBDDAT 
Foon isn a *RESET FAILED TO sET DAC1 TO 4000 


E 
titi 
;&TEST 44 HAT RE 4 (SWOS=1) 
TT uaa * +" ya gacaeammaspapaas ait rapa iapiaitcaaaaaliaaaaiaan ices nth 


t$T44: § 
MOV #40 STINES ;;D0 40 ITERATIONS 
BIT #SWO3, ISWR 


oe ir este! ? 
by ta773,sTpat FOR TF OR Baca 


SEQ 0038 


SK 


a 


PRseR 2S 


rT 
wo 
N 


Oe a ee be ee te ae be es be be ee pe ee 


Boa Sno ruk-baeveReE Reese 


rororure 
Wwrur- 


WWWWWWWWWWWlWWW) 


Zags 


Stan biniitetay tate 


22 
Wfwr 


Os ae te ee ae ee bee ae ae ae ae Bs en se ae pe ee ee pe 


WW 


ff 
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1 T44 TE THAT RESET SET DACe TO 400 ( 9=1) SEQ 0039 
5% MOV STMDAT apace ;7 PUT DATA FROM STMDAT TO DEVICE REG DAC2 
006504 012737 oo4000 001124 MOV #4000, $GDDA ;LOAD EXPTECTED 
006512 004737 026474 JSR PC, SRESET 
5% MOV QDAC2 , SBODAT ;/READ DEVICE REG DAC2,PUT DATA IN SBDDAT. 
OOb526 023737 001124 001126 CMP $GObAT, SBDDAT : COMPARE 
5 091401 BEQ 45 ;;8R IF SAME 
006536 ERR 4 *RESET FAILED TO sET DAC2 TO 4000 
Perri i iit titi tit ititiiitititiitt tt iitiiitiiitittiitit 
:&TEST 4S TESt THAT RESET SET DAC3 TO 4000 (SWO9=1 ) 
= RERKKSRERERKKERRKERRERRRREERAKERRRERREKRRRRRERKARRRAKRARKKKRRKHE 
006540 000004 tST4S: SCOPE 
006542 012737 o00040 001166 MOV #40, STIMES ;;00 40 ITERATIONS 
006550 032777 O01000 172362 BIT #SWO9, ISWR “TEST BIT 9 
006556 001425 BEQ TST46 ;;BR IF CLEARED 
012737 003777 001534 MOV 83777, STMDAT ;LOAD DAC3 
5% MOV STMDAT, BDAC ;/ PUT DATA FROM STMDAT TO DEVICE REG DAC3 
006576 012737 OO4000 001124 MOV #4000, $GDDAT ;LOAD EXPTECTED 
006604 004737 026474 JSR PC, SRESE 
+ % MOV 3 T ;/READ DEVIC G DAC3,PUT DATA IN SBDDAT. 
006620 923737 001124 oo1126 ’ coe Scopat, SEDDAT ; -— = ELA SBARE ? 
BpEESS i040 PRROR Ss wie Sates FAILED TO SET DAC3 TO 4000 
rit iti iit ttt tiitititiitiititiiiiiitiittitt titi tt) 
:RTEST 46 TEST THAT EXTERNAL DELAY DOES NOT SET DISPLAY READY SW10=0 
= MERLE RARRRRA RRR RRRRRRAAKRRRRRRKRERHERRRER EKER AEKRHRRARRRRHEE 
006632 op0004 tST46: SCOPE 
006634 012737 OO0010 001166 MOV #10, STIMES ;;D0 10 ITERATIONS 
006642 032777 002000 172270 BIT #5410, JSUR jTESt IF SW 10 IS SET 
006650 1051 BNE TST4 ;;BR IF ExT. DELAY SWITCH IS SET 
006652 012737 o00020 001534 MOV #BIT4, STMDAT sLOAD EXT. DELAY ENABLE 
3% MOV STMDAT, STAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 
;% MOV STAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
006700 105237 001534 INCB $TMDAT 
3% MOV STMDAT, ASTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
006714 012700 ooDc00 MOV #0,RO ;LOAD DELAY 
006720 1$ 
5% MOV STAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
0067 105737 001534 TSTB STMDAT 
7 100403 BMI ee ;BR IF SET 
736 905300 DEC R : Y 
74 00136 BNE :BR IF NOT FINISHED 
74 414 R T47 33 
006744 012737 o00020 001124 es: MOV #BIT4, SGDDAT ;LOAD EXPECTED 
# MOV STAT, SBUDAT ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 


006762 023737 001124 001126 CMP Gopat, $8DDAT 
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TEST THAT EXTERNAL DELAY DOES NOT SET DISPLAY READY SwW10=0 : SEQ 0040 
BEQ TST47 ;;BRANCH IF_EQ 
ERROR 11 sEXT. DELAY CAUSED READY TO SET 
;WHEN THE OPERATOR (VIA SW10) SAID NO EXT. DELAY WAS CON 
LAgEEE pO TEETER BEAT SOEE RET BISAUA BeROT Sun 
jg tegennenssqnenesnenensadnnnnensassnscntonesssnnsenenennnsnnanes rs 
000010 001166 “MOV #10, STIMES ;;D0 10 ITERATIONS 
002000 172126 BIT #9410, OUR -— os ATEST SR BIT 10 
000020 001534 MOV #BIT4, STMDAT ai ;ENABLE EXT. DELAY 
pee 5% Mov STMDAT, @STAT 37 PUT DATA FROM STHDAT TO DEVICE REG STAT 
001534 INC STMDAT ;ENABLE DISPLAY 
iz MOV STMDAT, ISTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
: / 
ieiaaes ;% MOV OSTAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
BMI es ;BR IF DONe 
ONE 1S OE ee NOT DONE 
oo0220 001124 MOV #81T7!B1T4, SGDDAT :LOAD EXPECTED VALUE 
5% Vv @STAT, SBDDAT ; 7READ DEVICE G STAT,PUT bara IN SBODAT. 
ERROR 11 “EXT. DELAY FAILED TO SET READY 
;WHEN THE OPERATOR ‘VIA SW 10=1) SAID AN EXT. DELAY WAS 
026474 2s: ISR PC, SRESET ;ENSURE CLEARED AAL1-K 
AEST ag hee essaz tena tag Ee gee earn e aeaatn To oe teste 
TT geal 1 esaaasamaaaeeaeaaammaaaca aaa immanent: 
990001 001166 : HOV ai, T NES ;;D00 1 ITERATION 
001 Ob I sun T ;MORE UNITS? 
1 021164 CMPB T, EVER 
Q SE ;;BR IF NONE 
001526 001536 ABD VADBR, STAT UPDATE ADDRESS 
poiese foie = 6B ‘Yea Bat 
po tese po teus ADD VABDA’ BAC 
901526 001546 ADD VADDR; DAC3 
901530 1550 ADD VVECT, IV ;UPDATE VECTOR 
001530 001552 ADD VVECT: IVS 
001102 CLR STSTNA 
002614 IMP LTEST ; TEST ANOTHER AALI-K 


-SBTTL END OF PASS ROUTINE 
5 HEE RE SE AE SE EA AE aE A AE a HE A EH EE EE ER 
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PASS ROUTINE 


Rif 
igor 
12 


021166 


901549 
001542 
000010 


rae 
1546 
15064 


b14756 


001202 


000 
826128 


Bor4? 
171514 


be NCREMENT THE PASS NUMBER ($PASS) 
#TYPE “END PASS S8XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 


ISIE HERE SHS $8 AtedT 


SEOP: 
SCOPE 
CLR STSiNM ;;ZERO THE TEST NUMBER 
CLR STIMES a 9 THE ER OF ITERATIONS 
NC PAS :? INCREMENT PASS NUMBER 
c #190000, SPASS 5 DON'T ALLOW A NEG. NUMBER 
(PC)+ ; ; LOOP? 
SEOPCT: .WORD 
BGT SDOAGN 35 YES 
MOV (PC)+, 2(PC)+ : RESTORE COUNTER 
SENDCT: .WORC 1 
SEOPCT 
M sass, (SP) ME sens 
He Ss eRe ay WITH SIGN 
T SENuLL HE A NULL CHARAC 
SGET42: MOV gave +3GET MONT TOR ADDRE 
BEQ On nN feet 09 F NO MONI 8R 
SET *:CLEAR THE WORLD 
SENDAD: J PC, (RO) $360 TO MONTT R 
NOP aa 
,° 
NOP 3;ACT11 
SDOAgN: 
IMP a(PC)+ ; ; RETURN 
SRTNAD: .WORD MTEST 
SENULL: .BYT -1,-1,0 sNULL CHARACTER STRING 
SENONG: LASCIZ <1$><12>/ENnD pasé’s 
VISUAL: MOV #STACK, SP ; Pp 
ney EVERI beep te TYPED ONCE 
BNE PICO :BR IF YES 
Me ;HEADER ABOUT SCOPE ADJ. 
MESIS ; TEXT ABOUT SWR 
I Rl ;SET FLAG 
-SBTTL DISPLAY HORIZONTAL LINE 
PICO: v 0, ROX 
MOV 1’R1Y 
IT r , aSWR TEST SR BIT 3 
Q 'BR IF DAC #0 AND #1 
nov » BOX ?USE DAC #2 AND 3 
2s MOV #5, TICKS ;LOAD TIMER FOR CP TYPE 
JSR PC’ CHTIME :CHANGE TIMER FOR CP TYPE 
1S: ISR PC, PBR 
JSR PC’ TIMER ;DONE ? 





SEQ 0041 
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ORLPB.P11 DISPLAY HORIZONTAL LINE SEQ 0042 

1454 007464 773 BR 1$ 
14 OO BR PIC1 
4 ROX: WW 0 
4S7 RLY: - WORD 0 

ROY: ol 6 

X: . 
ReY: 
DISPLAY A VERTICAL LINE 





SEPESS 
; 


bebe be rere SERREEEEAEE oe be ee 
CoORE. 
wi 
fs tatetat=) 
— 
SUNN 


Lee RU A RR gst san 
: Be my Bea a be | 


11S2 2S: MOV % nen Tin 
ues 7es0 i 0150 4 = JSR ee cHTI :CHANGE TIMER FOR CP TYPE 
471 007560 004737 014756 ; JSR Pe’ T EMER ;DONE 7? 
47, ue 4 77, BR b 
473 Boress BoNsib ,  Bheg 
pan ae 000000 001534 PBB: MOV #0, STMDAT 
476 sith seme -atanni 5% Mov STMOAT STAT 37 PUT bare fd STMDAT TO DEVICE REG STAT 
478 poets 1413 BO 10s’ :BR IF Rot 
4g0 “ ee inners 5% Hoy osTey  gTepat ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
eve te 
1463 nears aieien iz. Mov STMOAT aSTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 
14 ‘ 7 7777 MOV 7722, R3 :SET HIGH LIMIT 
Re foes Bey BARES iriese | BY ian UTIL rapegeyrg eercen rons 
14 ue BNE :BR IF YES 
1488 Bo FE58 873935 000400 001534 MOV #400, STMDAT 
1332 nein Genee on eal 5% Mov STMDGT aR ;/ PUT DATA FROM STMDAT TO DEVICE REG R1Y 
y B000 
1U33 . MOV STMDAT , IROX ;/7 PUT DATA FROM STMDAT TO DEVICE REG ROX 
1495 007724 060237 001534 \s: ADD R2, STMDAT ; INCREMENT 
1437 5% MOV STMDAT , IROX ;7 PUT DATA FROM STMDAT TO DEVICE REG ROX 
1499 - as ieee ;# mov gSTAT, SGDOAT ;/READ DEVICE REG STAT,PUT DATA IN SGDDAT. 
—- 
1555 oo77ey 22709 015% BOY SERRA. ABTAT. 7 PUT ORES EmgN, SABRRTSTO OEVICE AEG Srar 
1508 007770 001358 BNE 1$ ;NO ' 
: 506 007774 012737 OO00000 o01534 2s: MOV 80, STMDAT ;LOAD TWO’S COMP. ORIGIN 


3 


$8 
aS 


Ob be pe pe pe be pe pe 


WUT UU UU 
WONMUIC WO 


Reesor 


Ww 
2 


WIUNUIUTUNUT 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
cS Sg bat ttt 
WSWwue N 


uinnnnnnnnon anos 
Qe UTE UL Oe 
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1 DISPLAY A VERTICAL LINE SEQ 0043 
;* MOV STMDAT, @IRIY ;7 PUT DATA FROM STMDAT TO DEVICE REG R1LY 
;* MOV STMOAT , @ROX ;7 PUT DATA FROM STMDAT TO DEVICE REG ROX 

010022 000740 $ 


BR 
.SBTTL PINCUSHION TESt (DISPLAY SQUARE) 


010024 012737 O00000 001534 PIC3: MOV #0, STMDAT 
01 —_ < ‘Gian ;% mov sropeTses ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 
1Bp¢5 737 015064 JSR PC. CHTIME 
o1 4 13737 154 007476 MOV DAC, RIX 
1 13737 1542 007500 MOV Ci’ REY 
1 777 16 171042 BIT #SW03, ISWR ;TEST SR BIT 3 
1 76 BEQ ‘BR IF DAC #0 AND 1 
101 137 001544 007476 MOV 2,R1x ;USE DAC #2 AND 3 
010106 013737 1546 007500 MOV DAC3, REY 
Bigiss Berge ee: 
010164 e777 001000 171006 P3: BIT #SHO3, ASR ;TEST BIT 9 
010134 012737 oo4000 001534 MOV #4000, STMDAT ;LOAD TWO’S COMP ORIGIN 
;% MOV STMDAT, JR1X ;/ PUT DATA FROM STMDAT TO DEVICE REG R1X 
setieil” emai 5% Mov STMDAT, AR2Y ;/ PUT DATA FROM STMDAT TO DEVICE REG R2Y 
010164 005037 001534 1S: CLR STMDAT ;CLEAR AXIS 
; MOV STMDAT, IR1X ;/ PUT DATA FROM STMDAT TO DEVICE REG R1X 
Sr 20 yn Lins TMOAT, aRey ;7 PUT DATA FROM STMDAT TO DEVICE REG RY 
010210 012700 000377 es: MOV 77,RO 
010214 032777 OO02000 170716 BIT #5W10, ISWR ;TEST IF SW1O0 =1 
010222 001413 BEO P3A :BR IF NOT 
5% MOV aSTAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
010234 052737 o40000 001534 BIS #81T14, STMDAT 
a it, MOV STMDAT, ISTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
;* MOV QR1LX, STMDAT ;/READ DEVICE REG R1X,PUT DATA IN STMDAT. 
010262 060437 001534 ADD R4, STMDAT 
i MOV STMDAT, IR1X ;7 PUT DATA FROM STMDAT TO DEVICE REG RIX 
a ot ene ;# nov QSTAT, STNDAT ;/READ DEVICE REG STAT,PUT DATA IN STMdAT. 
5% MOV STMDAT, ASTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
:WAIT FOR READY 


010322 005300 DEC RO 
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DRLPB.P11 PINCUSHION TESt (DISPLAY SQUARE) SEa 0044 
1 —— DRAW RIGHT Line’ sNO 
1564 010326 012700 000377 : MOV #377,RO 
isee 010332 P3B: 
ieee tee, aloe Gaeans 3% Mov ahey STanet ;/READ DEVICE REG R2Y,PUT DATA IN STMDAT. 
1 
1870 5 MOV STMDAT, IR2Y ;7 PUT DATA FROM STMDAT TO DEVICE REG ReY 
1253 3% MOV QSTAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
1873 010366 005237 001534 INC sTmDAt 
1875 3% MOV STMDAT, ISTAT iz fy" Bare feor STMDAT TO DEVICE REG STAT 
1258 010402 905300 DEC RO 
1878 010404 001352 ene rob ne P38 ;NO 
1226 010406 012700 000377 , MOV #377, RO 
1581 010412 P3C: 
1583 5% MOV aR1x STMDAT ;/READ DEVICE REG R1X,PUT DATA IN STMDAT. 
1584 010422 160437 001534 SUB 4, STMDA 
1586 5% MOV STMDAT, AR1X ;7 PUT DATA FROM STMDAT TO DEVICE REG R1X 
i363 canes, mene eu ;% nov QSTAT, STMOAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
1590 
1591 3% MOV STMDAT, ISTAT + SyT pave oRon STMDAT TO DEVICE REG STAT 
1235 010462 005300 DEC RO 
1594 010464 001352 BNE P3C ;NO 
1595 cane ;DRAW LEFT LINE 

012700 000377 MOV #377,RO 

1532 010472 P3D: 
1599 5% MOV aRey STMOAT ;/READ DEVICE REG R2Y,PUT DATA IN STMDAT. 
1600 010S02 160437 001534 SUB ,StMDA 
1602 ; MOV STMDAT, IR2Y ;/ PUT DATA FROM STMDAT TO DEVICE REG R2Y 
1604 3% MOV STAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
1605 010S26 005237 001534 INC sTmpat 
1607 5% MOV STMDAT, STAT ;7 PUT DATA FROM STMdAT TO DEVICE REG STAT 
1609 ;WAIT FOR READY 
tei p108u4 Bp aee BNE PSD NO 
Hee Sines Beacaro1w7ss ih San 
1614 Bi Re 4 00040, BR PICH 
1615 010556 000137 010124 1S: IMP P3 
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1 x SEQ OO04S 


PLOT AN 
-SBTTL PLOT AN X 


010S62e 012737 OOO000 OO01S34 PIC4: MOV #0, STMDAT 


ie sca - saan 5% Mov STMDAT STAT 37 PUT DATA FROM STMDAT TO DEVICE REG STAT 

pioeoe bagea? 015064 JSR pc. CHTIME ;CHANGE TIMER FOR CP TYPE 

210525 1 g ? opie tes PIC4B: rey Bre} Ray 

A 16 1 6304 8 M eens SWR TEST SWR BIT 30 
013636 iret pois 00747 MOV pace, Rix ‘ ;USE DAC 02 AND 3 
10644 013737 001546 00750 MOV ACS, ReY 

010652 3703 001536 1S: nov STAT, RS 

Bi BPRS 7 1 170250 P4: BIT #SWO9, ISWR ;TEST BIT 9 

010670 001414 BEQ 

010672 012737 o04000 001534 MOV #4000, STMDAT 
;% MOV STMDAT, AR2Y ;7 PUT DATA FROM STMDAT TO DEVICE REG R2Y 

Seesiiih * tiaeial 5% Mov STMDAT, AR1X ;/7 PUT DATA FROM STMDAT TO DEVICE REG RIX 

010722 005037 001534 1S: CLR STMDAT 
5% MOV STMDAT, RIX ;7 PUT DATA FROM STMDAT TO DEVICE REG RIX 
5% MOV STMDAT, IR2Y ;7 PUT DATA FROM STMdAT TO DEVICE REG R2Y 
-PLOT LINE BEGINNING IN LOWER LEFT CORNER 

Biboes passes pONTTe 170160 es: bey $3110’ SSUR TEST IF SW1O =1 

B185 1413 Beo Puq ‘oR IF NOT . 

oo aes 5% Moy asTAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMdAT. 

casi ik, MOV STMDAT, ASTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 

sscseat- cmmmeet nib 5% Hoy QSTAT ,ST"DAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
;# MOV STMDAT, ISTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 

aia hlia® anneal ‘Seaemie ;% nov OREY , STHOAT ;/READ DEVICE REG R2Y,PUT DATA IN STMDAT. 
5% MOV STMDaT, AR2Y ;/ PUT DATA FROM STMDAT TO DEVICE REG R2Y 
5% MOV STMDAT, AR1X 54 Pur DATA FROM STMDAT TO DEVICE REG RIX 

011070 005300 DEC RO , 

011072 001346 BNE P4A ;NO 
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ORLPB.P11 PLOT AN X - SEG 0046 


;PLOT ee ey IN_UPPER LEFT CORNER 


0 
1B5t 011074 012737 007774 001534 #7774, STMDAT 


167. 
1838 * MOV STMDAT, IR2Y ;7 PUT DATA FROM STMDAT TO DEVICE REG R2Y 

1674 011112 005037 001534 CLR STMDAT 

1676 ;% MOV STNCAT QRIX ;/7 PUT DATA FROM STMDAT TO DEVICE REG RIX 

1 011126 012700 001777 MOV #1777,Ri 

1678 011132 P4B 

1680 3% MOV aSTAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
ieee 011142 005237 001534 INC $TMDAtT 

1683 5 MOV STMDAT, ASTAT ;/7 PUT DATA FROM STMdAT TO DEVICE REG STAT 
1685 5% MOV R2Y, STMDAT ;/READ DEVICE REG R2Y,PUT DATA IN STMDAT. 

1686 011166 160437 001534 SUB 4, STMDA 

1688 ;% MOV STMDAT, IR2Y ;7 PUT DATA FROM STMDAT TO DEVICE REG R2Y 

1282 5% MOV QR1X, STMDAT ;/READ DEVICE REG R1X,PUT DATA IN STMDAT. 

1691 011212 060437 001534 ADD R4, STMDAT 

1693 5% MOV STMOAT, ARLX ;/ PUT DATA FROM STMDAT TO DEVICE REG R1X 

tae 811858 85308 NE g 

1 11 00134 N P4B ;NO 

1696 O1le32 004737 014756 ISR PC, TIMER 

1697 011236 o00402 BR 1$ 

1698 011240 000137 007402 IMP PICO 

1695 011244 000137 010662 1S: JMP PY 
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DRLPB.P11 PLOT AN SEQ 0047 
1708 11250 VCXTMP: O 
1503 Biises pa0n00 VEYIMP: 
17’ 11254 YPOS: 0 ;CONTAINS Y POSITION AT ANY GIVEN TIME 
17 11 xPOS: 0 :CONTAINS X POSITION AT ANY GIVEN TIME 
17 11 oc CHRCOL: 0 
1707 Oll@6e o00000 YPT: 0 
1309 
1716 SBTTL MANUAL DISPLAY ROUTINE 
i513 011264 PIC: 
1713 011264 012706 001100 FULRMP: MOV #STACK, SP ;LOAD POINTER 
1714 Oi 1270 004737 o0e07e JSR PC, LOTRAP *LOAD BUS ADDRESS 
1715S 011274 032777 OO02000 167636 BIT SW10, JSWR ; TEST SR’ 10=1 
1716 011302 001413 BEQ ‘BR IF NOT 
1718 5% MOV QSTAT, STMDAT ;/READ DEViCE REG STAT,PUT DATA IN STMDAT. 
1719 011314 052737 000020 001534 BIS #B1T4; STMDAT 
1760 MOV STMDAT, ASTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
1788 113 3737 1540 007470 is MOV DACcO, ROX ;GET ADDRESS 
17 11 737 1404 ISR PC 105, : HE DAC #1 
17 11 137 1542 007470 paAcI ROX :GET BUS ADORES 
17. 11 7 011404 JSR PC 16s, +LOAD THE RAMP ON DAC #1 
17 il 37 1S44 007470 MOV pac :GET ADDRESS 
i7 11364 7 11404 JSR c, 10s *LOAD THE DAC #2 
1728 O11 70 0137 001546 007470 MOV pat3, ROX :GET THE BUS ADDRESS 
1729 11376 004737 011404 JSR Pc, 10S :LOAD THE RAMP ON DAC #3 
1730 0114 000753 BR is ?BR BACK 
1736 011404 005037 001534 10S: CLR STMDAT 
1734  * MOV STMDAT, ROX ;/7 PUT DATA FROM STMDAT TO DEVICE REG ROX 
1735 011420 062737 o00010 o01534 |is: ADD #10, STMDAT 
1338 5% MOV STMDAT , IROX ;7 PUT DATA FROM STMDAT TO DEVICE REG ROX 
1738 011436 005737 001534 TST STMDAT ;TEST IF DONe 
1739 011442 901 BNE 118 : IF NO 
1740 011444 013672 IS PC, ACTRLC ‘TEST FOR CTRL C 
1741 0114S0 000207 RTS PC tEXIT 
1742 011452 024 NOP 
1743 011454 NOP 
174S .SBTTL AUTO CALIBRATION 
1746 O114S6 012706 0011 AUTCAL: MOV #STACK, SP ;LOAD STACK POINTER 
1742 O1146e 004737 002072 JSR PC, LOTRAP :LOAD TRAN AND ADDRESSES 
1748 o11476 0076 AUTOCL ;TELL OPERATOR 
1 11472 104401 TYPE 
1781 011474 017604 SELD01 
1753 ;LOAD BUS TRAP FOR OPERTOR FALSE SELECTION 


_ 


3 
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: AUTO CALIBRATION SEQ 0048 
755 011476 012737 013460 o00004 MOV #AUTRAP, ERRVEC 
? O11 OL 737 901102 MOV aSTNe 1 $TSTNM ;LOAD TEST NUMBER 
see SHES UES EE BRAD ROY aPSUPLY PRON 1E8aB LB ABORESs 
. 
760 011526 004537 014704 5 ; Ss ;CHANGE RELAYS 
761 011532 O20000 BIT13 :USING BIT 13 FOR CRISS-CROSS WRAP MODE 
ops eee rtritttitiitiitititttttititt titi iti eet tt rier iereres y 
764 :&TEST 51 TESt THAT CH 3 IS AT +2.5 BIPOL 
765 =o REREKERKRERERRRRRRRRRRERRE EEE RARARRARRRRRRKRRRKRKKKRRRKRKRRHREKE 
5eS 1123e 137 015400 001124 fetst: aov V1754 T LOAD EXPECTED VALUE 
768 11544 537 015204 : JSR Re’ BonvAT CONVERT 
588 ijees pogo? o1s4i2 001126 MOV ADEND , SBODAT hee VALUE READ 
aa 011560 Bar37 O1540¢ 015420 HOV Ve4,SpREAD *L + OR - T SPREAD 
35a Bligze 104012 Ban OR OF Te aS cou EPECTED VALUE 
775 R 
ae | bp He Me MEME EME He EE HE HE HE HE ARERR EERE REAR R AREER EERE RE RER 
7 ;*#TEST S2 TEST THAT CH 4 IS AT -2.5 BI 
os REKKKRKKKEKRKKKRKRRRRSRERRAARERAAARAERKARKARARRERRARERKRRRRRRERKRKARKEE 
115 909004 tSTS2: SCOPE 
{1208 013 015402 001124 NSUPLY: MOV V24, SGDDAT ; LOAD EXPECTED VALUE 
11608 537 015204 JSR RS, CONVRT i CONVE T 
O116 4 Ol 3 b154 2 001126 MOV ADEND DAT j LOAD VALUE READ 
11 154 015420 MOV Ve4, SPREAD 3L + OR - COUNT SPREAD 
11 bets 015422 JSR Pc, COMPAR :COMPARE SGDDAT AND SBDDAT 
11 BR OK ;;BR IF WITHIN TOLERANCE 
11636 ole ERROR 12 55 in ;CH 4 FAILED TO EQUAL EXPECTED VALUE 
1164 SUPOK: " 
Ot ibe pous37 014704 SR RS, CROSS ;LOAD THE RELAYS WITH BIT13 
116 104401 011656 TYPE 65S ;;TYPE ASCIZ STRING 
pi iees 000414 BR HH R tue d 


64 T OVE! ASCIZ 
ii gSs: -ASCIZ O12 «12> ANALOG biBBLIES etixses 


011706 : 
gp MRE EAE RE RRR RE ERE E RRR REALE RRERES 
:&TEST 53 TEST THAT ERASE L (CH 53) IS GREATER THAN +3 VOLTS WHEN HIGH 
=o PERKS RRERRRRRRR RRR REAR ERA RRRRRERRRRRRERRRRRRRRRHRKEEE 
011706 oo0004 - ‘8TS3: SCOPE 
011710 012737 oo0000 001534 MOV #0, STMDAT ;LOAD STATUS 
+ MOV STMDAT, STAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
011726 012737 001146 oo1124 ’ MOV #1146 se5pat . ;LOAD PxPECT D VALUE 
117 537 015204 JSR RS, CONVRT ; CONVERT 
011740 900053 CHS3 ;CH 53 
1174 01373 015412 001126 MOV ADEND , SBDDAT *LOAD VALUE READ 
011750 023737 O01124 001126 CMP $GDDAt, SBODAT : COMPARE 
011756 003401 BLE TSTSY ;;BR IF LESS THAN OR EQUAL 
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l TS3 TEST THAT ERASE L (CH 53) IS GREATER THAN +3 VOLTS WHEN HIGH SEQ 0049 
011760 104014 ERROR 14 ;CH S3 FAILED TO EQUAL EXPECTED VALUE 
titist cu. “TET THAT ERASE L (CH 63) 15 LESS THAN +400 MVOLTS WHE 
HAN + 
011762 00 js Seeeenegeqqnunenanennnnanssunensnenseansenoasnesenansnonenanes elisa 
5% MOV STMDAT , ASTAT / PUT bare FROM STMDAT TO DEVICE REG STAT 
011774 012737 O12000 001534 MOV #681T12!BIT10,$T TmbaT SET ERASE 
5% MOV STMDAT, ASTAT 37 PuT one FROM STMDAT TO DEVICE REG STAT 
12018 012737 000120 001124 MOV #120 T ; LOAD EXPECTED VALUE 
isos Bpsges ClSeos ange ae 
1e0e6 13737 015412 001126 MOV ADEND SB0DAT ;LOAD VALUE READ 
1 3737 001124 001126 CMP S$GDDAT, SBDDAT 
12042 1 BGE TSTSS ;;8R IF AREATER THAN OR EQUAL 
012044 104015 ERROR 1 ;CH FAILED TO EQUAL EXPECTED VALUE 
AEE EE reer na nA TEATS TED ESSSTETLESS Tia TAGD nous wen Low 
012046 00004 j juasatdexyaunaraennaenuunsenenaensenseaetnaheNantaneaeaaniexss 
012050 012737 006000 001534 MOV #B81T11!B1T10, STMDAT ;SET WRITE-THRU 
‘ es 120 necnall ;# mov Hee asTAT 37 PUT DATA FROM STMDAT TO DEVICE REG STAT 
1 7 goes JSR arog OORT 
i 1BB pogos3 O1S412 001126 nov are T iCH VALUE READ 
O18110 643535 001124 o01126 CMP $G008 1 aegopAT on : PORE nt 
biSi38 its PRE oR 1 -CH S4Y FAILED TO POCAL <EXPECTED VALUE 
. seqeepett loool tagonnayennenrsezennnalitelicti eeberteleat 
tETE TEST THAT NON-STORE (CH 5S) IS LESS THAN +400 MVOLTS WHEN LOW 
12122 j {Haseena euseuwennaruannneuneenaensSuseenatnaeeaeHnaenoneaneneszey 
Bists§ 899997 000030 001534 MOV 30, STMDAT ;CLEAR STORE MODE 
;% MOV STMDAT, ASTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
o1214e 012737 900120 001124 HOV 8120, SGDDAT jLOAD EX CTED VALUE 
O1gis4 5 _ CHSS : 3CH 55 
012156 013737 O1S412 001126 MOV ‘TOaB VALUE READ 
O12164 3737 001124 O01126 CMP fe ee SRDDAT 
12172 053081 BGE ;;BR IF ATER THAN OR EQUAL 
012174 104015 TO EQUAL «EXPECTED VALUE 


ERROR AILED 
jreeeevsenneunantousaeasensersesseensualiaatbensetnerraniaeas 


tkTE TEST THAT NON-STORE L (CH SS) IS GREATER THAN +3 VOLTS WHEN HIGH 
j HanHaSeanenwanacenaenuntneehneesaGeKGSaEeK00N000 000000000008 
012176 oo0004 +815 SCOPE 
012200 012737 017000 001534 Rov #BIT1L2!BIT11!BIT1O!B1T9, STMDAT ;SET STORE MODE 


;* MOV STMDAT, ISTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 
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TEST THAT NON-STORE L (CH 5S) IS GREATER THAN +3 VOLTS WHEN HIGH 
46 001124 MOV #1146,$ T :LOAD EXPECTED VALUE 
eed JSR Re oavete CONVERT 
015412 001126 MOV ADEND , SBDDAT $LOAD VALUE READ 
1124 001126 CMP $GODAT, SBODAT 7 
TST60 ;;8R IF LESS THAN EQUAL 
14 °CH SS FAILED TO EQUAL EXPECTED VALUE 
TTT iii iiiiitiiiitiiiiiittitititiitiiitiiititiciierttirire. 
:&TEST 60 ST THAT DELAY RETURN SETS Y 
> gg 02 cian eg aa estan 
000020 001534 , re #BIT4, STMDAT ;LOAD EXT DELAY BIT 
5% MOV STMDAT, ASTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
000020 001124 MOV #81T4, $GDDAT LOAD EXPECTED 
001534 INC STMODAT ;MAK Y GO AWAY 
3% MOV TAT AT ;/READ DEVIC G STAT,PUT DATA IN SBDDAT. 
001124 001126 CMP S25 BAt SeDDAT , SSE ARE : 
BEQ 1$ ;;BR IF EXPECTED 
- ERROR 1 ;READY FAILED TO cLEAR 
5% MOV @STAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
002000 001534 BIS #81710, STMDAT 
i MOV STMDAT, ASTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 
002220 001124 MOV #B1T10!B1T7!BIT4,$GDDAT ;LOAD EXPECTED 
5% MOV QSTAT, SBDDAT ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
001124 001126 CMP SGDDAT, SBDDAT - COMPARE 
BEQ 2s ;;BR IF SAME 
ERROR 1 ;EXT. DELAY RETURN FAILED TO SET READY 
000000 001534 2S: MOV #0, STMDAT 
3% MOV STMDAT, ASTAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
Pitt iitiiiiitiiiitiiigcitititititisiiit eri iisiigriss ries. 
;&TEST 61 TEST THAT CHANNEL O2 L (CH S56) IS GREATER THAN +3 VOLTS WHEN HIGH 
ne OR, AER RRERRReRteREERERC ICE <emugigmce one e tage 
014000 001534 ; #81T12!B1T11,STMDAT ;LOAD STATUS 
3% MOV STMDAT, ISTAT :/ PUT DATA FR TMDAT TO DEVICE REG STAT 
001100 001124 MOV ST iba s28oat : ;LOAD Xpect D VALUE 
015204 JSR RS, CONVRT 5C0 RT 
015412 001126 MOV ADEND, SBDDAT 3L VALUE READ 
001124 O01126 MP $G0DAT, SBDDAT iC 
LE 62 ;;8R IF CESS T OR EQUAL 
ERROR 14 


;CH S& FAILED TO EQUAL EXPECTED 
; VALUE 


= SE 26 aE HE ES a A A a a 0 a a a a a a a a a a a a a a aa a a 
TEST THAT CHANNEL O2 L (CH S6) IS LESS THAN +400 MVOLTS WHEN LOW 


; TEST 62 
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TEST THAT CHANNEL O2 L (CH S6) IS LESS THAN +400 MVOLTS WHEN LOW 


MAINDEC-11-DRLPB-A 


ORLPB.P11 Té2 SEQ 0051 


~ 
wo 
~ 
NN 


a ee ee eae 


191 1 +éTe2: SCO 

1318 B 15268 p09997 003000 001534 MOV #B1T9!BIT10, STMDAT ;SET CHANNEL 2 | 

1921 3% MOV STHDAT aSTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 

13¢¢ piesz8 0127 2 900120 001124 MOV Le 120, SGD0AT ; LOAD EX XPECTED VALUE 

1 1 HS6 ; 

1925 0125 013737 g15i12 001126 MOV $20e SBD0AT ; VALUE READ 

1 1 7 1124 001126 MP SGDDAT, $BDDA : 

1358 013540 1 : SCE 1 : ;;B8R IF GREATER THAN 

1328 0125s0 104015 ERROR 15 CH S& FAILED TO EQUAL EXPECTED 

1330 0125S2 012737 o00000 001534 1S: MOV #0, STMDAT *CLEAR BIT 9 

1932 3% MOV STMDAT, ASTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 

ie AEST Egress ana azease™™ aad Bone Can Be cctone eno Set 

1338 012570 oo0004 jc HeeeusenuaennatnneuhaetatnaeinneeeeenGx0n0 40000000 0000000000% 

1338 012572 012737 oo00000 001534 * MOV 80, STMDAT ; CLEAR 

is? ae : : 5% Hoy E T, aSTAT 37 PuT DATA’ FROM $T T TO DEVICE REG STAT 

iste piseig B03932 ayentate 001534 v SORA 2, STMDAT 3 EXPE EEF EB° 

1344 ; MOV STMDAT, ASTAT ;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 

1 . MOV TAT AT ;/READ DEV G STAT,PUT DATA IN SBDDAT. 

13u9 01264 023737 001124 oOO1126 ’ CMP Sc00nt; SBDOAT COnBaRE 

1948 0126 001401 BEQ 1 ;;BR IF if 

1949 O12652 104001 ERROR 1 s ERASE FaqL D TO CLEAR READY, CHECK GS036- 

1380 CTION: A-VV, VV-A 

: i 012654 1S: 

1325 3% MOV agFary T,STMOAT ;/READ DEVICE REG GSTAT,PUT DATA IN STMDAT. 

1964 012664 053737 001000 001534 BIS 

1956 ;# MOV great, sestar 37 PUT anit FROM STMDAT TO DEVICE REG GSTAT 

1987 012702 005037 001124 CLR S$GDDAT LOAD EXPECTED 

1358 3% MOV STAT,S T ; /READ sevice G STAT,PUT DATA IN SBDDAT. 

1 012716 023737 001124 001126 CMP $20pAt SeDDAT , : : 

1961 b1e7e4 001401 BEQ 2s ;;BR IF CLEAR D 

136¢ 12726 104001 oR 1 ;ERASE BIT FAILED TO CLEAR BY ERASE 

1363 :RETURN (SETTING OF THE CH 2 BIT 

1965 012730 2s: 

1385 oieruo overar ooxooo coisas ™* — BRE —«-RSFTATAARGRT. “READ DEVICE REC csraT,Pur oaTA IN stHDAT, 

1969 

1970 3% MOV STMDAT,@GSTAT  ;/7 PUT DATA FROM STMDAT TO DEVICE REG GSTAT 
| 
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HA SET 


“ERASE” AND DONE CAN CLEARE 
MOV #B1T7, SGDDAT ;LOAD EXPECTED 
5% MOV QSTAT, SBDDAT ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
CMP $GDDAT, SBDDAT : COMPARE 
BEQ 3S ;;8R IF CRB 
ERROR 1 Y FAILED TO SET ON THE END 
RASE RETURN (CLEARING CH 2) 
33: 
JSR RS, CROSS ;LOAD THE RELAYS WITH O 
: ivest aa MDIUSTMENT ROUTINES FOR DAC O- 1 
fkTE T 64 ADJUSTMENT ROUTINES FOR DAC O - 
perme cepunegemmnnr scrim 
TIMES ;;D0 1 ITERATION 
; OFFSET ADJUST FOR’ AC O 
JSR RS, SNDVLT ;LOAD THE VOLTAGE 
Bye #0, STMDAT ;LOAD DAC REGISTER 
5% nov STMDAT aDACO 37 PUT ATA FROM STMDAT TO DEVICE REG DACO 
ert S, CROSS LOAD THE RELAYS WITH BIT14!BIT13 
= TAM!BIT1S 
ROB ;TELL OPR. TO ADJUST R38 
JSR PC, CSPACE ‘WAIT FOR OPR. TO TYPE “SPACE” 
;OFFSET ADJUSTMENT FOR DAC 1 
JSR RS, CROSS ;LOAD THE RELAYS WITH BIT13 
5% Mov. STMDAT, IDAC1 ;/ PUT DATA FROM STMDAT TO DEVICE REG DACI 
RYO TELL OPR. TO ADJUST RYO 
JSR PC, CSPACE fWAIT FOR OPR. TO TYPE “SPACE™ 
;GAIN ADJUST FOR_DAC 0 
ISR RS, SNOVLT 
P49976 
MOV 87777, STMDAT ;LOAD DAC O 
;% MOV TMDAT aDACcO 37 PUT oAre FROM STMDAT TO DEVICE REG DACO 
JSR CROSS LOAD THE RELAYS WITH BITIY!BITI3 
iturerris 
R37 TELL OPR. TO ADJUST R37 
JSR PC, CSPACE iWAIT FOR OPR. TO TYPE “SPACE” 
:GAIN ADJUST FOR DAC 1 
ISR RS, CROSS ;LOAD THE RELAYS WITH BIT13 
BIT13 
.* MOV STMDAT, DAC! ;7 PUT DATA FROM STMDAT TO DEVICE REG DACI 





MAINDEC-11-DRLPB-A 
ORLPB.P11 Té4 
202S 013174 104401 
3] 01 178 020601 
e0e? Ol 004737 
20e8 
5050 013204 004537 
2031 Bizct® 001540 
soe Ol3ele 000051 
st 
50 3¢ 013214 004S37 
2036 013220 eis 
2037 Ol3eee 00 
2038 
2039 
2040 
2041 
e042 013224 o00004 
sia Ol3ee6 012737 
Se BIR APH 
504 13240 004537 
5048 Bi 3544 020760 
20S0 O13e% 012737 
2051 
5085 013264 004537 
sooo 013270 060000 
2e0S6 013272 104401 
e0S7 O13e74 o0004e 
S038 013276 
OS 
2060 
2061 
2062 
2063 013312 004537 
2064 013316 d20000 
2065S 
2066 
2067 013330 104401 
2068 O01333e O20467 
2069 013334 004737 
2070 
2071 
2072 013340 004537 
2073 Bi eee 02077 
2074 013346 01273 
2075 
207) 
2077 013364 004537 
2078 013370 060000 


OS 
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;TELL OPR. TO ADJUST R39 
:WAIT FOR OPR. TO TYPE “SPACE” 


;GO TO DAC FUNCTION SUB. 


[Fegytnguannencesvosversapeoceeerengece reso geangeancannnannnsene 


REGEN EESEUDEEGRESECOEOEEESS EaeeRRNSSRETSOGESeREeNeEDeEaouESe® 


;;D00 1 ITERATION 


;LOAD E.D.C 
;LOAD DAC VALUE 


;7 PUT DATA FROM STMDAT TO paves 6 Ace 
ITH B iS 


;LOAD THE RELAYS W gr° 13 


UST 
T 


J R42 
O TYPE “SPACE” 


37 PUT = FROM STMDAT TO DEV 


ICE REG DAC3 
LOAD THE RELAYS WITH BIT13 


1 


7 PUT DATA FROM STMDAT TO DEVICE REG DAC3 


TELL OPR. TO ADJUST R44 
WATT FOR OPR. TO TYPE “SPACE” 


;LOAD DAC 2 


/ PUT oe FROM STMDAT TO oy 


C 
LOAD THE RELAYS WITH BI 


=m 


I 
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ADJUSTMENT ROUTINES FOR DAC O - 
TYPE 
R39 
013734 JSR PC, CSPACE 
;DAC 0 D/A FUNCTION CHECK 
0:S112 JSR RS, FUNDAC 
DACO 
CHS1 
;DAC 1 D/A FUNCTION CHECK 
v1isile JSR , FUNDAC 
CHS2 
tETE ADJUSTMEN*’ ROUTINES FOR DAC 2 - 
+éTe5: 
000001 001166 MO #1,STIMES 
;NOW DO 7o8 AND’ 3 
; OFFSET Bet be? TOR DAC 2 
014532 Jor RS, SNDVLT 
000000 001534 MOV #0, STMDAT 
3% MOV STMDAT , IDAC2 
014704 JSR RS, CROSS 
BIT14!B1T13 
TYPE 
42 
013734 JSR PC, CSPACE 
;OFFSET ADJUST FOR DAC 3 
;% MOV STMDAT, IDAC3 
014704 ISR RS, CROSS 
5% MOV STMDAT, JDAC3 
TYPE 
R4Y 
013734 ISR PC, CSPACE 
;GAIN ADJUST FOR DAC 2 
014532 JSR. o. RS, SNOVLT 
007777 001534 MOV #7777, STMDAT 
3% MOV STMDAT, JDAC2 
014704 JSR RS, CROSS 
BITL4!BIT13 


SEQ 00S3 


MAINDEC-11-DRLPB-A 
T6S 


ORLPB.P11 


20793 
2080 013372 


813376 


a 


$ 
eee 
299 
gies 


MOS 
Bb 


oO 
= 


e 
2102 

1 

1 
2107 
2108 
2109 

110 

111 

lle 
2113 7 
2114 3474 

115 

HE 

Hig. 813882 
s1i3 Biss 
5151 13514 
sice 1 
sie Bt 
sis 130 
si Shee 
eles 01354 
si} Blase 
e131 bi gece 
2132 013556 


104401 


bo473? 


823886 


104401 
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ADJUSTMENT ROUTINES FOR DAC 2 - 3 


013734 
014704 


013734 


015112 


01S11e2 


011456 
000006 


002430 


boeh72 


013672 
165412 
017777 
001S40 
020000 
o001S4e 


ooo004 


TYPE 

pnt 

JS PC, CSPACE 
;GAIN ADJUST FOR DAC 3 


SUATT FOR’ OPR. "10 TYPE 


1 
“SPACE” 


CE REG DAC3 
IT13 


5% MOV STMDAT, JDACS ;/ PUT DATA FROM STMDAT TO DEVI 
RS, CROSS ;LOAD THE RELAYS WITH 8 
Rig” TEL T JUST R43 
JSR PC, CSPACE ‘ATT PER ope. Fo FYPE “SPACE” 


;DAC 2 D/A FUNCTION CHECK 
JSR RS, FUNDAC 
DACe 
CHS1 

;DAC 3 D/A FUNCTION CHECK 


JSR RS, FUNDAC 


TYPE 
CALDON 
JMP AUTCAL 


AUTRAP: CMP (SP)+ (SP)+ 
MOV #6, ERRVEC 


JMP CTRLC 
-SBTTL MANUAL LOGIC TEST 


MANUL: MOV aSTACK, SP 
JSR Be CO TRAP 
TYPE 
MANHED 

1S: JSR PC, ACTRLC 
CKSWR 
MOV 5 RO 

v 


R 
BIC #17777,RO 
BNE g 
MOV 0,R2 
10$ 


BR 

es: CMP #61T13,R0 
BNE 
MOV DAC1, Re 
BR 10$ 


;LOAD STACK 

;LOAD BUS ADDRESS 

;TESt FOR CTRL C 

;READ THE SWITCHES 

; COPY 

;MASK OFF BITS 

sBR IF NOT DAC O 

;LOAD DAC O BUS ADDRESS 
; TEST FOR DAC 1 


; OT 
;LOAD DAC 1 BUS ADDRESS 


SEQ O00S4 
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DRLPB.P11 MANUAL LOGIC TEST SEQ ooss 
2133 013560 022700 o40000 3S: CMP agIT14, RO ‘TEST FOR DAC 2 
1 13564 BNE RAF 
: : : 001544 nov - 2,Re Pa one 2 BUS ADDRESS 
e137 13574 022700 060000 4$: cNe sBIT14!B1T13,R0 ,TESt FOR DAC 3 
3133 yee Sas 001546 nov Bacs, Re BB ade pae’'3 Bus ADDRESS 
elu} 013610 Ol 001536 S$: MOV STAT, Re one STATUS REG. BUS ADDRESS 
2143 013614 010137 001124 10$: MOV R1, SGDDAT 
3its 013620 010237 001126 MOV R2; SBDDAT 
ie ;* MOV SGDDAT, 9SBDDAT ;/ PUT DATA FROM SGODAT . To DEViCE REG $BDDAT 
2147 013634 013703 001532 MOV DELAY ,R3 ;PRESET THE DELA 
e148 013640 005303 11S: DEC R3 DELAY 
3186 Bt 3e45 p83 001124 ane bagoar ;CLEAR THE REGISTER 
1 3% MOV T,aSBDDAT ;7 PUT onre FROM SGDDAT TO DEVICE REG SBDDAT 
gies 013660 013703 001532 MOV sepRy 3 LOAD ote PRESET 
2154 013664 005303 12S: DEC 
215s 01 3666 001376 BNE 128 
e156 0136 000711 BR is 
5158 ;TEST FOR CTRL C -=- DONT WAIT 
160 013672 105777 165246 ACTRLC: TSTB asTKS ; INPUT FLAG ? 
193 1 4 4 ;NO 
1 1 1 165242 013732 MOV aSTKB, 10S ?READ THE CHARACTER 
gib3 1 O4e° 37 177600 013732 BIC #177800, 10% 
164 613598 2737 000003 013732 Cc 83,1 ;TEST FOR CTRL C 
e165 1 i 2 - i :BR IF NOT 
5188 i ? =o 1$: ine Be ;EXIT 
e168 137 o00000 10S: 0 
6170 ;WAIT FOR A “SPACE” CHARACTER 
2172 013734 105777 165204 CSPACE: TSTB OSTKS ;WAIT FOR CHAR 
gi23 pig Qi77a7 1 1401 BOY Seri ;READ CHAR 
gio¢ Bt 5535 {$3268 pt iots Bic Sf Eaiot , 10S >MASK 
2176 ol 756 022737 000003 O14Ole cne ie : TEST FOR CTRL C 
1 1 MP CTRLC 
size Giares Boule pomp |g | ame Clic Bie a a 
2180 014000 001001 BNE 2s 
at ot 7 RT PC ;EXIT 
1 1 401 2s: TY 
el 1 17517 QMARK 
e184 014010 000751 BR CSPACE 
2186 oO14012 oD0000 10$: 0 


MAINDEC-11-DRLPB-A 
-Pll MA 


2 

Uv 
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N 


tururufrurururururururururururur 
LAR RAPP RR 
—OWO IE Le Ope 
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o RE 
OO0000000 
ps b= b> bs bh bo Pa Be pe 
SELL LCCCLS 
Cl en ee ee ee en ae ee 


de ed ee 
WONO UC WE 


furofuorurorufurorororu 


tururufururururufuruor 
rT 
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oO 
- 
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oO 
fu 


SENET COL 


oO 
— 
<£ 
~ 
<= 
fu 


7372 
17700 
10037 


104407 
2777 
1461 

012737 


AALL PERGNOST IC 


INUAL LOG é tes 


000020 


OOOO4O 164714 
ooe000 001534 


CLRVC: 
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-SBTTL MANUAL DAC CALIBRATION 


: MOV Be cot SP 


OTRAP 
PC, A@CTRLC 
MOV RO, STMDAT 
MOV STMDAT, IDACO 
MOV STMDAT, IDAC1 
MOV STMDAT , IDAC2 
MOV STMDAT, IDAC3 
Ba 1S 


#STACK, SP 
JSR PC, LOTRAP 
JSR PC,ACTRLC 
MOV aSWR, RO 
JSR 


Pc, 10$ 
CLR RO 
ISR PC, 10S 
BR 1§ 


MOV STMDAT , JDACO 
MOV STMDAT, IDAC1 
MOV STMDAT , JDAC2 
MOV STMDAT , JDAC3 
#20,R0 


BPL 11$ 
PC 


BIT #BITS,aSWR 


MOV #81T10, STMDAT 


MOV STMDAT, @STAT 


;7 PUT DATA FROM STMDAT TO DEVICE REG DACO 
;7 PUT DATA FROM STMdAT TO DEVICE REG DACI 
;7 PUT DATA FROM STMDAT TO DEVICE REG DACe 
;7 PUT DATA FROM STMDAT TO DEVICE REG DAC3 


DYNAMIC DAC CALIBRATION 


K_ POINTER 


Bus. SSES 
ST FOR CTRL G 
th ST FOR CTRL C 


;7 PUT DATA FROM STMDAT TO DEVICE REG DACO 
;7 PUT DATA FROM STMDAT TO DEVICE REG DACIL 
;7 PUT DATA FROM STMDAT TO DEVICE REG DACe 


37 PUT ont FROM STMDAT TO DEVICE REG Daca 
AD DELAY COUNTER 


SUBROUTINE TO ERASE STORAGE SCOPE SCREEN 


; TEST * giT 


;BR IF NO f STORAGE SCOPE 
; ERASE THE ScREE 


;7 PUT DATA FROM STMDAT TO DEVICE REG STAT 


SEQ O0S& 


MAINDEC-11-DRLPB-A 
ORLPB.P11 


oO 
= 
£ 
a 
£ 


0S2737 


COONOOO0O0O0000O0000 Oo000 


bb ee 


ane 


SEES LESCLELC ESL ELS 
SNe 
NN 


Oo 
r= 
£ 
WwW 
n 


oo 
bob 
ro 


EEEEE 


£ 
e 





ee ee 
ars 
£vo 


O0000000 


ratataral 


AAL1-K__ DIAGNOSTIC 


010000 
000020 
oooo40 


001534 


013672 


164572 


164SS4 


ooo000 


7777 
007596 
10 


p01544 
001546 


aie 
eave 


000010 


000007 


01367 
00001 


001534 


164632 


010000 


001534 


021156 
164510 


;* 


MACY11 27(654) 
SUBROUTINE TO ERASE STORAGE SCOPE SCREEN 
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QSTAT, STMDAT ;/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
#BIT12, STMDAT 

STMDAT, JSTAT ;7_PUT DATA FROM STMDAT TO DEVICE REG STAT 
#20, RO :SET UP DELAY 


1 
St Saye ;TEST IF NOT STORAGE SCOPE 


5 aad ;7READ DEVICE REG STAT,PUT DATA IN STMDAT. 
3$ ;BRANCH IF SET 
vy | ; DELAY 
PC, ACTRLC ; TEST FOR CTRL C 
; DELAY 


;TEST INHIBIT PRINTOUT 


;TESt FOR CTRL C 
; T @SWR 


OSUR TES 
ms ;ERASE RETURN FAILED TO SET READY 
SUBROUTINE TO DRAW A HORIZONTAL LINE 

#0, STMDAT ;CLEAR STATUS 

STMDAT asTAT ;/7 PUT DATA FROM STMdAT TO DEVICE REG STAT 
87777, TEMP 1 

STAT,.RO 

3, ISWR ;TESt SR BIT 3 
4 ‘BR IF DAC #0 AND 1 
2.R ;LOAD x AXIS 
"Re :LOAD Y AXIS 
a: 

eBIT1O, (0) ;SET STORE MODE 

TEMP1, te) 

87777, (1) 
3S 

#10, (1) 

(0) 

(0) 

-2 

#7, (1) 

;TESt FOR CTRL G 

PC, ACTRLC ; TEST FOR CTRL C 

#10, (2) 


SEQ@ 00S7 
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DRLPB. SUBROUTINE TO DRAW A HORIZONTAL LINE SEQ 00S8 
2295 014526 000207 RTS PC 
ee37 014S30 167772 FILZ: 167772 ;O0R11-C OUTPUT CONTROL REGISTER 
2299 ; SUBROUTINE TO LOAD THE EDC VOLTAGE 
2300 :DATA FORMAT IS: STX 
2301 : P OR N 
2302 : N VOLTS 
g 3 : p TENTHS VOLTS 
2305 : 
23 : 3 
5309 ; Vv VOLTS 
5310 ; _ 
231 14 012500 SNDVLT: MOV (RS)+,RO INTER 
e312 pt Wesa ees 2S: MOVB (RODs Ri iter a YTE 
313 014536 001446 BEQ 3$ TERM. 
2314 014540 005101 COM Ri + OONVERT IT 
e316 014542 110137 001534 MOVB R1, STMDAT ‘LOAD FUNNY DATA BYTE 
2317 5% MOV STMOAT, AFILZ ;/ PUT DATA FROM STMDAT TO DEVICE REG FILZ 
18 O14SS6 012701 001000 MOV #1000,R1 ;LOAD DELAY 
e2 3 O145be 005301 Ss: DEC Ri DELAY 
2300 14564 001376 BNE S$ 
2322 3% MOV rae sTmpaT ;/READ DEVICE REG FILZ,PUT DATA IN STMDAT. 
e323 014576 042737 000200 001534 BIC #BI TMDAT 
2325 5% MOV STMDAT, OFILZ ;7 PUT DATA FROM STMDAT TO DEVICE REG FILZ 
2326 014614 012701 001000 MOV #1000,R1 ;LOAD DELAY COUNT 
327 014620 005301 1S: DEC Rl : DELAY 
e3e8 014622 001376 BNE 1 
2330 5 MOV aFILZ, STMDAT ;/READ DEViCE REG FILZ,PUT DATA IN STMDAT. 
2331 014634 052737 o00200 001534 BIS #B1T7; STMDAT 
5335 5% MOV STMDAT, OFILZ ;/ PUT DATA FROM STMDAT TO DEVICE REG FILZ 
e334 014652 000730 BR 2s ;D0 MORE DATA 
2336 014654 012701 oDDD00 3S: MOV #0,R1 ;LOAD DELAY 
337 014660 012737 000177 001534 MOV #177, STMDAT :SET BITS 0-6 
2339 . MOV STMOAT, OF ILZ ;/ PUT DATA FROM STMDAT TO DEVICE REG FILZ 
014676 005301 4g: DEC 1 ; DELAY 
2341 014700 001376 BNE 4§ 
este 014702 o00205 RTS RS sEXIT 
2344 014704 012537 014754 CROSS: MOV (RS)+, 10S ;READ REG. 
234S 014710 O0S2737 000177 014754 BIS #177,10 LOAD LOW 7 BITS 
e346 014716 013737 014754 001534 MOV 108, $TMDAT :LOAD RELAYS 


2348 ;* MOV STMDAT, AF ILZ 37 PUT DATA FROM STMDAT TO DEVICE REG FILZ 





MAINDEC-11-DRLPB-A 
ORL 


PB.P11 SUBROUTINE TO DRAW A HORIZONTAL LINE 
5339 Bt? BAgsBt 000001 mo #1,RO ;LOAD DELAY 
1 ig 1S: DEC RI ; DELAY 

SMI ey BO BERRY 

2355 014752 goge0s — RTS RE ;EXIT 

: -SBTTL_ TIMER ROUTINE FOR VISUAL TEST PATTERNS 

24 ; ENTER VIA JSR PC, TIMER 

2360 014756 104407 TIMER: CKSWR 

33th Bid3e8 877535 TeaPS6 oeiiso mov = SURG TINS gait spatettipcte: 

2364 014772 032737 OON440 021150 TIMERA: BIT #B1TS, TIMSV ant % 

S388 B1e882 5633 021152 Dee HRs if BecRement TICKS 

a BiEBIS Beged 07007 ramen: RAR BE {AER uhn"® *T#OK POINTER 

ae : SR ShSREEP lho’? LOCK Om 

2374 O15016 042737 177770 O21150 TIMER2: BIC #177770, TIMSV 

5352 612050 Beseas B7ebee 021150 ABD #ROUTPT , TIMSV 

2377 Bigoss 017737 004106 021150 MOV aTINsv, T TIMSV 
Bh: 1 1 004076 TIMER4: JMP SFr HsY 

2362 015052 gorge ROUTPT: pico Bisa ay 8 A ue te LINE 

ese; Sienes Siees Pie iBISeLY 

e385 015062 011264 PIC6 : DISPLAY CHARACTER SET 

2 15064 737 015110 021160 CHTIME: MOV CPTYPE, BRLEV1 
2388 OI 08537 1160 iS: DEC BRLEVI 

a1 Sty 906337 021152 ASL TICKS 

uh 151 00020 2s: Ris Cc 

e394 015110 oo0001 CPTYPE: 1 

397 1 ORD SUSPRMET The FINS RESULT FROM EACH OF THE RESULTS 

2399 015112 013537 o15202 FUNDAC: MOV @(RS)+, XDACUT ;GET BUS ADDRESS OF ARUT DAC 
sis? BIEISE 815997 B45/38 conse RY $5686°BeBacur Shee VME’ oate wT FOR PKS 
e402 015130 012737 007600 001124 MOV #7600, $GDDAT :LOAD EXPECTED 


AALI-K DIAGNOSTIC 
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SEQ 00S9 


Z 
. 


oO ® 


Yat a tat at to ee ot a a a a a = 


a at at at at at at a a at at a a a dt 


re: 


Pre 
Ba 
OO00000 200000000 


wu 
££ 


e443 
yy 


DOVTN LW ODD VEE 
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Pl TIMER ROUTINE FOR VISUAL TEST PATTERN SEQ 0060 
3 

015136 ? 015204 18: JSR RS, CONVRT ;CONVERT USING ARKG 
O1si44 012737 000010 o1s4e0 MOV #10, SPREAD ;LOAD LIMIT 
01818 930405 01S422 JSR PC, COMPAR a= > wien :TEST IF WITHIN LIMIT 
01 128 104016 ERROR 16 :SELECTED DAC HAS A LINEARITY ERROR 
0151 162777 000400 oo00012 eas: SUB #400, 2XDACUT sUPDATE DAC 
615170 162737 OO0400 001124 Sua #400; SGODAT ‘UPDATE GOOd VALUE 
15176 1357 BNE 1$ ;;BR IF NOT FINISHED 
915209 ooo000 10$: 0 
01 oo0000 XDACUT: O 
; SUBROUTINE TO GET AVERAGE OF 32 CONVERSIONS FROM THE KNOWN GOOd AR 11 
20 015208 012537 015374 CONVRT: MOV (RS)+, 10S 
3 15210 013737 g15374 015416 MOV 108, CAANL 
ss pi2si8 p0o334 20 015376 Rove #16.,11$ 
24 015230 005037 O1S4ie CLR 
ge 015234 013737 015374 001534 MOV 10$, STMDAT 
4 - ‘emaentl- taniamees ix mov $TMDAT, AGADCS ;/ PUT DATA FROM STMDAT TO DEVICE REG GADCS 
30 - iz MOV STMDAT,@GADCS ;/ PUT DATA FROM STMDAT TO DEVICE REG GADCS 
32 _ 
33 asaame, “sneep demas 5% HOV aGADCS, STMDAT ;/READ DEVICE REG GADCS,PUT DATA IN STMDAT. 
35 015302 100371 BPL 1S 
= ieiadl acmeit” eimai “aemneni 5 Mov QGADDBR, STMDAT ;/READ DEVICE REG GADDBR,PUT DATA IN STMDAT. 
’ 
40 vent tecea “iene 3% Moy STHOAT, GADDBR ;/ PUT DATA FROM STMDAT TO DEVICE REG GADDBR 
2 5336 Oars 2s 
5340 1s41e2 ASR ADEND 
7 15418 ASR ADE 
01541 ASR ADEN 
4 015412 ASR ADEND 
5360 537 015412 ADC ADEND ;ROUND UP 
015412 001126 MOV ADEND , SBDDAT 


10S: ia) 

11S: 0 
V17S4: 1754 
Ve: uy 
GADCS: 170460 
GADDBR: 170462 


rata 
Boz 


a ee ey ed eee ee nr 
Mes 
a BS 
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w 





R 


SEQ 0061 
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JOS 
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TIMER ROUTINE FOR VISUAL TEST PATTERNS 


MAINDEC-11-DRLPB-A 


ORLPB.P11 


€15><12> 


’ 


IN RO 
(MAINDEC-11-DRLPB-AD) 


;MAGNITUDE OF DIFF. 


; SUBTRACT 


;LOAD RO 
;LOAD Rl 


<15><12><12>’AAL1-K DIAGNOSTIC TEST, 


0-900 -—MRMQOQ0OOUMUO NO 
SCenecorcea~~-so ~~ 


+ 
+ 
) 
+ 
* 
-SBTTL ASCII MESSAGES 


ASCII 

-ASCII /SELECT TESTS BY TYPING A TWO LETTER I.D.7<15><12> 

ASCII /AL AUTO LOGIC TEST/<15>< 12> 

-ASCII 7AD :AUTO DISPLAY TESt (DISPLAY SCOPE CONNECTED) /<15>< 12> 


SPREAD 
COMPAR: 


J 
a 
= 
~ 
= 


8s: 
9S: 


1 

1 
015420 
oo00cde 





ce ees 
- oo000- [=is) 
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O0000 9000000000000 2000 Q000000NO 


pRros UOT MOR PPO HUI T DBE BE AUT at Bro 
SEREREREEREEEREREEEERERETEREEEE EERE EERE EE RET OTST 
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een 


ASCII MESSAGES 
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-ASCII 


-ASCIT 


-ASCIZ 
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-ASCIT 
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7ML :MANUAL LOGIC TEST (SWR 15-13 = REGISTER 12-0 = DATA) 7<15><12> 
7MD :MANUAL DISPLAY (NO DISPLAY SCOPE)7<15><12> 
7MC :MANUAL CALIBRATION LOOP/<15><12> 


dee 4 
<15><12>"ERASE RETURN FAILED TO SET READY"<15>< 12> 


<15><12>’SCOPE ADJUSTMENT TEST’ 


«15><12>/7SWR8 AND O THRU 2 CONTROL PATTERN/<15>< 12> 


*SWR BIT 3 SELECTS DAC O+1 OR DAC 2+3’<15><12> 


/SWR BIT S SELECTS STORAGE SCOPE MODE/<15>< 12> 


SEG 0063 


LOS 
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AAL1-K DIAGNOSTIC 
ASCII MESSAGES 


NDEC-11-DRLPB-A 
ORLPB.P11 


MAT 


/SWR BIT 9 SELECTS TWO’S COMPLEMENT DISPLAY MODE7<15>< 12> 


/SWR BIT 7 ENABLES VERTICAL SETTLING TESt’<1S><12> 


-ASCIZ /BUS TIME-OUT WHEN REFERENCING THE AAL1-K/ 


-ASCIZ /STATUS REGISTER IN ERROR/ 
-ASCIZ /DACO REGISTER IN ERROR/ 
-ASCIZ /DAC1 REGISTER IN ERROR/ 
-ASCIZ /DAC2 REGISTER IN ERROR/ 
-ASCIZ /DAC3 REGISTER IN ERROR/ 
-ASCIZ /AALI-K FAILED TO INTERRUPT/ 
-ASCIZ /AAL1-K INTERRUPTED IN ERROR/ 


ASCII 
-ASCIZ 


gi 
vt) 


EM1 
EMe: 
: EM3: 
EM4: 
EM6& 
EM7: 
EM10 





042117 
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O00000000000 M000 000000000000000000000 
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MAINDEC-11-DRLPB-A AAL1-K 
ORLPB.P11 


aE 


DOOOOOO OOOO DO OOOOOOO OOO OOOGN OO CODD 0D0O00000000000000 


ata 
Pa 


FORO bm WoW E 


deat ata 


e6S9 
2660 
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ASCII MESSAGES 


“ 

ia 
te 
OER 


me 
o 

Bou 

i Be at 


a 
2 
8 
= 
e | | 


x Beas 


fe 


au 
+ 


oso 
041111 051501 
047507 042117 
042101 000 
01s Ole 


DIAGNOSTIC 


EM11: 


EMle: 


EM13: 


EM14: 


EMIS: 


EM16: 


OH14: 


QMARK: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-BYTE 
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7AAL1-K READY BIT ERROR/ 


/POWER SUPPLY VOLTAGE WAS INCORRECT/ 


ZONE BIT THE DUST/ 


/AA11-K LOGIC SIGNAL HIGH OUTPUT TO LOW/ 


/AAL1-K LOGIC SIGNAL LOW OUTPUT TO HIGH/ 


“SELECTED DAC HAS A LINEARITY ERROR/ 


ZERRPC IBASE EXPECT BAD/ 


ZERRPC IBASE/ ; 
ZERRPC IBASE # FIRST # NOW/ 


ZERRPC IBASE GOOD BAD/ 


15,12,77,15,12,0 


SEQ 0064 


SEQ OO06S 


NOS 
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AA11-K DIAGNOSTIC 
ASCII MESSAGES 


MAINDEC-11-DRLPB-A 


ORLPB.P11 


‘ 
, 


T SWITCH TO SELECT DAC O AND 17¢15><12 
T SWITCH TO SELECT DAC 2 AND 3/7<15><12> 


TO CALIBRATION COMPLETED/<15>< 12> 
TO CALIBRATION (AA1L1-K OPTION TEST AREA ONLY)/ 


“SW 12-00 ARE LOADED INTO THE SELECTED REGISTER/<15>< 12> 


7SW 15-13 SELECT THE REGISTER/<15><12> 


= 28 
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- Oo ~ 
cw J MS 
hon] - ' 
- uJ — 
w a “4 
-_ cz 
mo & = o 
oO « - 
=— wo cum at) tu a8) a) 
= «+O ~ Con hen! coal — coal - 
8 wk @ = = S| ~2 2 
~ wmumn w wa w wa 
“a oN ~ tts aN aN _ on™ 
N N N N N mw et fon) 
WwW tie ~ Jl je ue ue _ Jie 
- FO oO erro -O FO -O oO -rO 
> ae w ~>>W ~-w >~wW -—wW w >>uw 
oa @ Le onc act oc aoa ie aoc 
ss 8 @f g s 8 ¢ 
- S a a a °o 
rs ‘ 3 pe Pm _/ - 
uJ ivT) a 2 
Oo kw w uw T,) oO = te 
mo KW o-0 mor- oo =u ovo =MOWTM «A= OLMUINTY owo 
8=3 oo a? 8 H O~3 Egsis) o- TuTOS on on4o H rer 
ins Tr wn “4 aaa TWF ea TWO 
au Ly] = 28 =U thee a, “F A 
o 23 Beeuees 5S8 
Tr 





ReenaeaenenteneeneaRentane RRR R SBS ERAARAAAARAAR AN eae 


oat ae AAL1— 


rururoru 


NNNNNN 


SRRZOR 


NNN 


turururorurururuory 
NN 
£ 
nO Whur 


E222 


daeginced se 


rr 
OD 
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ASCII MESSAGES SEQ 0066 


BR 


Oe nrcOWOr- 


-BYTE 15,12,0 
AUTOER: :ASCII <15;><12>/BUS TRAP WHEN LOADING VOLTAGE OR CHANGING A RELAY’<15><12> 


eon 
oe 
oPun 
2H 
Oe 
O~ tr 


0405 | -ASCIZ 77? AAL1-K OPTION TEST AREA ?? 7¢15><12> 


411 
2 


711 O4eS 
0S1 


le R38: -ASCIZ <15><12>/ADJUST R38 FOR A NULL ON THE METER/ 





= 
ofowfrv 


RYO: -ASCIZ <15><12>/ADJUST RYO FOR A NULL ON THE METER/ 


Prune A 


bebe he 
woo 
2 


4 
15 Ree: -ASCIZ <15><12>7ADJUST R22 FOR A NULL ON THE METER/ 





——f 
-OK~— 
Bae 
O~ 
<£ 
£ 
o 


g 


10S 
194 R44: -ASCIZ <¢15><12>/ADJUST R44 FOR A NULL ON THE METER/ 
1 


on 
re ss 
ROH 
<£ 
sae 
pope 
woo" uly 


R37: -ASCIZ <15><12>/ADJUST R37 FOR A NULL ON THE METER/ 


MAINDEC-11-DRLPB-A 


ORLPB. 


2781 
e78e 
2783 


Sudsaageaa 


seenaeeeenas 


ee 


NOU £W-O 


SSE OOSR Ss 
ROVVUDUGUUDUANDEOD 1 


rurururu 
featecdeedee) 
WWWW 
£ _ 


Pill 





D076) 
2 


Roce 88 


E 


SSTRE 


bb 


Ob oe ee 


DEBNTOL 


= 


AAL1-K 


ASCII MESSAGES 
047117 
046440 


> be ee 
~ 
—W— 


3 
: 


totatotatatatcutatatad 


ee ee pe 


0 pe 


Bee 


= 2 = 
FOG 


DIAGNOSTIC 


042510 
051105 








R39: -ASCIZ 
R41: -ASCIZ 
R43: -ASCIZ 
STX=1 
ETX=3 
NSOOOO: .BYTE 
-ASCII 


P49976 ‘Bre 

, “Bxe I 
.BYTE 
EVEN 

DT1: SERRPC,S 
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<15><12>/7ADJUST R39 FOR A NULL ON THE METER/ 


<15><12>/ADJUST R41 FOR A NULL ON THE METER/ 


<15><12>/ADJUST R43 FOR A NULL ON THE METER/ 


STX 
/NSOOOO0O0V 
1x,0 
/P499760V/ 
ETXx,0 
TAT, SGDDAT , SBDDAT , 0 


OTe: SERRPC , DACO, SGDDAT , SBDDAT , 0 
DT3: SERRPC , DAC1 , SGODAT , SBDDAT , 0 
DT4: SERRPC , DAC2, SGDDAT , SBDDAT , 0 
DOTS: SERRPC , DAC3, SGDDAT , SBDDAT , 0 


OT6: SERRPC, ST 


OT13: $SERRPC,S 
OT14: SERRPC,S 
DFO: 0,0,0,0, 


LOW: 0 


AT,O 

TAT; EVER, SUNIT,O 
TAT, SGDDAT , SBDDAT, 0 
0,0,0,0 


MAINDEC-11-DRLPB-A AAL1-K DIAGNOSTIC 


DRLPB.P11 ASCII MESSAGES 
og11¥9 go9000 

Oell 000000 
63 e11E2 00000 


MACY11 27(654) 


O00r-O 


14-DEC-77 20:20 PAGE SS 


SEQ 0068 


O06 


MAINDEC-11-DRLPB-A AAL1-K DIAGNOSTIC MACY11 27(654) 14-DEC-77 20:20 PAGE S& 
ORLPB.P11 ASCII MESSAGES SEQ 0069 
2840 0211 TEMP1: QO ; TEMPORARY STORAGE 
ll BRLEV1: O 
ll BRLEVe: 0 
1120 VER: 0 
yy ll VERI1: O 
2864S 021170 OPRIN: QO 
021172 P7CNT: O 
021174 P7PNT: O 





. SBTTL 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


28si 33 SRKEKKRASRERARRSRRRREARERARKAREREERKAKRAKKKRKRRKRAKERKKRKKRHRRKRERE 
e8se :&THIS ROUTINE IS D TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
2853 j ¥STGNED DECIMAL (ASCII) R_AND YPE IT. DEPENDING ON WHETHER THE 
28s4 ; #NUMBE : ITIVE OR NEGA reve A SPACE OR A MINUS SIGN WILL BE TYPED 
2ess :*¥BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
e858 ; #REPLACED WITH SPACES. 
2858 : MOV NUM, -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
e859 1a TYPDS ::GO TO THE ROUTINE 
286 1176 STYPDS: 
1 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
1 010146 MOV R1,-(SP) He Ri ON STACK 
eBe4 1 010246 MOV Re, - (SP) 33 TACK 
cece fists o1ee my Rszige) #BUsH we Oh Stace 
121 O17 020200 MOV #20200, -(SP) He went TGH SIGN 
oes : 4 000020 nov 20(SP);RS ::GET I P Be 
1 NEG 3 >> MAK NaRy NUMBER POS. 
2871 Oele oo00ss o00001 MOVB #’-,1(SP) >3;MAKE T i R NEG. 
eB 1 1S: CLR RO 33 Cc AN ‘ NOEX 
1 i 021412 MOV #SDBLK,R2 ;;SETUP THE OU T N ER 
74 1 27 000040 MOVB #’ ,(R3)+ >3;SET T IRST CHARACTER TO A BLANK 
75 1 2s: CLR Re a obs NUMBER 
1 16001 021402 MOV SOTBL(RO),R1 33 THE AN 
1 1 3S: SUB R1,RS ::FORM THIS BCD DIGIT 
12eS4 Put y 55 BR ¢ 
i INC R 2 INC HE BCD DIGIT BY 1 
1 4S: AD R1,RS 3 BACK THE CONSTANT 
i 5 a4 Re Bor a IF Ma 76 fte0 
1 BNE S$ i EALL THROUGH 0 
1 105716 TSTB (SP) 33ST bs BOInG LEADING 0’S? 
1 100407 BMI 7$ ;;8R YE 
1 1 SS: ASLB (SP) He NSD? 
: 1 BCC 63 ::BR IF NO 
000001 177777 MOVB 1(SP) .-1(R3) > 3 YES-- THE SIGN 
28 1 $: BIS #'0,Re MK HE BCD DIGIT ASCII 
2890 1 1 7 0 BIS a’ | Ro ::MAKE_IT A SPACE IF NOT ALREADY A DIGIT 
2891 MOVB Re, tR3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
g83e Gel TST (RO)+ :;JUST INCREMENTING 
33 132 000010 CMP RO, #10 ::CHECK THE TABLE INDEX 


MAINDEC-11-DRLPB-A 


ORLPB.P11 


S4 
9S 


BS 


sees 


RLU UU UB ODO ODD OOD 


ee eh ee 


SoReReoee 


RRR ee eee ee 
WONOUSWeO 


DB DDD Do Do Bw 


~o 


SESE ROWS 


+ 
ae 
RRR 


2933 
2334 
2935 021440 
Be 
Saa0 pete 
1446 
2939 021454 
2340 1460 
sais Bide 
234 1498 
est 1474 
es4s 1476 
e346 021476 
e347 021504 


CONVERT 





032777 
001404 


177777 


000400 


DIAGNOSTIC 
TO DECIMAL AND TYPE ROUTI 


177776 


ooo004 


157502 


000004 


157434 


8S: TSTB 
BPL 


9S: CLRB 


SOTBL: 1 


SDBLK: .BLKW 


MACY11 mm" 14-DEC-77 20:20 PAGE S7 


2s ;;G0 00 THE NEXT DIGIT 
Be Re at oa eg 
Eg’ +f Cc $5 ASCII 
(oP + ;;WAS THE LSD THE FIRST NON-ZERO? 
cASSP), ,72(R3) 5 -- pe THE SIGN FOR TYPING 
(R3) HH T RMINA TOR 
(SP)+,RS 33 TACK INTO RS 
(SP)+/R3 ::POP STACK INTO R3 
(SP)+' Re :;POP STACK INTO Re 
(SP)+/R1 +;POP STACK INTO RI 
(5P)+’RO ;3POP STACK INTO RO 
k NOW NUMBER 
2(SP),4<SP) t tapsUST HE STACK 
(SP)+) (SP) 


;;RETURN TO USER 


4 
-SBTTL SCOPE HANDLER ROUTINE 
Tere a TING CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 


: ATH a | ROUT oe ts 


CONTROLS T IT WILL 


INCREMENT 
ne INT ABg sre epuette oe REG. (DISPLAY<7:0>) 
FONG I 


TRAELT TTERATIONS. 4, 


au eWob= 

> #CALL 

: SCOPE ; ;SCOPE=IOT 

SSCOPE: 
CKSWR on bemeie ;;TEST FOR CHANGE IN SOFT-SWR 

1S: BIT eStT 14, OSUR sib PRESENT TESt? 
BNE sve Pal SW14=1 

seeeeSTART OF CODE FOR THE XOR ire rT1tY) 

&xTSTR: BR 63 tae ed i ne Tg" NoBS TER CHANGE 
MOV DSERRVEC, -(SP) i T RTS OF Aue ERROR VECTOR 
MOV oes #ERRVEC tise ite FOR TIME 
TST >7060 337 
MOV (SP) asERRVEC i FRE 
BR Lab +85 

SS: CMP (SP)+, (SP)+ Hat i Bice A TIME OUT 
MOV (SP)+,QBERRVEC 5; RESTORE ie ERROR V CTOR 
BR SOVER {LOOP ON HE BRESENY. TEST 

6$:;#8#e8END OF CODE FOR THE XOR HES Enosese 
BIT #B1TO8, ISWR ;;LOOP ON SPEC. TEST? 
BEQ 2s ::BR IF NO 


SEQ 0070 


PRRREERPRGI ERRORS 
RERERERRRRRRRRRRRRRRES 


Pe ee ee ee he bee Ba ee be he bee 


: 


2 
3 


2 


Bwuwe 


> Pa 


BB 
Ye 


SaasERSRSS ERR TEREISS 


Wwwror 
Sige 
Stehs. 


2 7) aime” | AAL1-K_ DIAGNOSTIC MACY11 27(654) 14-DEC-77 20:20 PAGE S8 


SCOPE HANDLER ROUTINE SEQ 0071 
7737 157426 001102 nee evens THE RIGHT TEST? SWR<7:0> 
1 333 001103 2s: Ts1B st hee AN OCCURRED? 
001103 4S: CLRB SERFLG a THE ERROR RGF 
01166 CLR : S rf ITERATIONS TO MAKE 
004000 157376 3S: BIT #B81T11,aSWR Hon Tee TE 


983 coven Bre 
3% cosi0s wiles ent 


1 

7-7 1 001104 MP TINES, SICNT a RATIONS LONs MADE 

B53015 000001 001104 1S: SVER Soe Pe ihe. COUNTER 
001166 Vv SHXCNT, STIMES 0 DO 


CERO TR Se eke ER ee Na ce 


0 1 MO i 

1 4 p51633 SSVLAD: INCB HH 

113732 901102 001200 ve T ae TESTN ise Te IN APT MAILBOX 
13777 1102 157314 SOVER: MOV T Th, ISPLAY 1 Sive AY TE 

p 4 601106 Hoy 3 AOR’ CoP) hi ks ete Dae 

003720 > MAX. eocr OF ITERATIONS 


SMXCN : 2000, 
sooTTL: RROR HANDLER ROUTINE 


5g. SE HE AE 06 SE SESE 06 0 a 9 a A a a a a a a a a a a a a a a 
t4TH IS ROUTINE Sith es INCREMENT THE ERROR FLAG AND THE coe 


save HE ERROR I ITER AND THE ADDRESS OF THE ERROR 
: #THE gO ITSH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
{eeu 3=1 INHIBIT ERROR TYPEOUTS 
ie ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
021636 SERROR: 
1638 407 CKSHR — FOR CHANGE IN SOFT-SWR 
1 737 013672 S PC ACTRLC 
ies 001775 > FF BON’ T LET THE. FLAG GO TO 
ieee 1377 901102 157262 MOV ?srnm, a01SPLAY Hea TEST R ERROR FLAG 
tie 
1ge4 0 4 HOLL a nov CP), BrPC +i UNG ABBRESS 6 S OF CORROR INSTRUCTION 
1676 77 7214 001114 MOVE S17ene RIP THE ERROR ITEM CODE 
051708 032777 b3a5d0 eyes BIT es ca TWeeour ae tes 
021714 004737 021766 JSR Bes SERr TYP :GO TO uSER ERROR ROUTINE 
01754 104401 001171 oie TYPE , SCRL 
1? 122737 000001 001214 : CNPE #APTENV, SENV RUNNING IN APT MODE sain 
951236 beret 001114 021746 MOVB TEMB, 21S 1NO, ITEM NUMBER AS ERROR NUMBER 
Oei7e 004737 023746 oe JSR PC, SATYS ::REPORT FATAL ERROR TO APT 


MAINDEC-11-DRLPB-A AAL1-K DIAGNOSTIC MACY11 27(654) 14-DEC-77 20:20 PAGE S93 


DRLPB.P11 ERROR HANDLER ROUTINE SEQ 0072 
3008 1747 999 .BYTE 0 
1750 000777 ee 228: BR ees 5 ;APT ERROR LOOP 
388¢ 85} 083558 ; BP. g3 i BPs ty FAROE NUE 
3908 bei17 00 HALT ::HALT ON ERROR! 
G21 76< Pea oa CKSWR +: TEST FOR CHANGE IN SOFT-SWR 
021764 oo0000e : RT ; s RETURN 
10 . SBTTL BRAor MESSAGE TYPEOUT rotitine 
tk PO a RC I EC RO oe 
3014 ERROR ST g Q BE REPORTED: i HEN OBTAINS TERROR TABLE” dERate), 
3018 TATE I BN CONC NINE THE 
3017 021766 ements 
3018 1766 104401 001171 TYPE aSCRLE i i CARRIAGE RETURN” & “LINE FEED” 
1774 ctR B Be ste Ye ube THE ITEM INDEX 
1 1 1 001114 SB asSITEMB, RO 
3085 _—— — bi Mee THe PC OF THE-ERROR 
3064 022004 013746 001116 MOV SERRPC, -( SP) $5 VE SERRPC FOR TYPEOUT 
3026 66012 04402 TyPOC :}G0_ TYPE--OCTAL ASCII(ALL DIGITS) 
3056 149 0004 1S: DEC Be + BE Tust THE INDEX SO THAT IT WILL 
3355 201 ast 33 WORK FOR THE ERROR TABLE 
1 feetes ASL R 
3032 062700 001256 ADD #SERRTB RO POINTER 
3033 RSso3g BATES, we Bed SE R0)+, 28 eae IF pee ee INTER ee 
3035 022036 104401 - TYPE . i; TY pian - 
3037 Besbue 001171 5 1HPE SCRLF tink Fane ne FEED! 
30 12037 O220S6 3$: MOV tRO)+,4S ;;PICKUP “DATA WPoe ce. POINTER 
3630 8S 1 oe, 2S i SREP a 
ug: WORD O 730 POINTER S 
3042 1O9¥01 001171 TYPE SCRLF HH “BARR Bo. FRE FE 
4 O11 SS: nov tRo), RO si DIC qaqa "TABLE® POIN FER” 
3045 056070 6S: MOV (SP)+ 2R0 Pe 
30Ne Dectze 10980 I 001171 TYPE fo $38 RETURN” 8&8 “LINE FEED” 
3093 028100 01304 ti 3(RO)+,-(SP) sae RO)+ FOR TYPEOU 
10¢ Toads TYPOC , + 86 FyPercocTAL ASCII CALL DIGITS) 
3023 Besibe opiseo Bo tC TB og Feasts 
3053 022110 104401 022116 TYPE gs sre upc) SPACES 
ee pssti? BoB a4 000 8S: -ASCIZ 7 / aa ED SPACES 


MAINDEC-11-DRLPB-A AAL1-K_ DIAGNOSTIC MACY11 27(654) 14-DEC-77 20:20 PAGE 60 
ORLPB.P11 ERROR MESSAGE TYPEOUT ROUTINE 
3056 022122 . EVEN 
? .SBTTL POWER DOWN AND UP ROUTINES 
« SKKKRRKAAASKAARKERESRRAKRERERRRAEHRARRAAERARAKHRAARKARARAKAAHRKRAHRHLAHEKE 
3960 OWER DOWN ROUTINE 
1 0221 012737 o000e4 POWER N: MOV #SILLUP aPURVEC ;;SET FOR FAST UP 
1 12737 000026 MOV 3 DSPWRVEC+E ; es BRIO: 
1 1 MOV {86 RO ON STACK 
© Oesi4e o1dede MOV RB? CSP) btEuSH Ae ON STACK 
3086 144 010346 MOV RS’ -( ep) + PUBH RS ON STACK 
1 10446 MOV R4,-(SP) HH RY ON STACK 
3068 1 010546 MOV RS;-(SP) ;;PUSH RS ON 
3059 1 1 MOV =( SP) ?:PUSH @SWR ON STACK 
39 1 1063 MOV SP, SSAVRE :;SAVE SP 
3071 i 12737 oo0024 MOV. SSPWRUP, J#PWRVEC’;;SET UP VECTOR 
3073 955158 BOOr7e BR -2 ;;HANG UP 
« RELMREKKRRKAKARRKRKERERERERARERRERARERRERARERARRRRERRRRA HAKKAR KRKRKRK EE 
3075 
3076 BOWER UP ROUTINE 
77 174 012737 oo0024 $PWRUP: MOV aSIL Shab, sBrenve’, ; jSETE FOR FAST DOWn 
8 test ex eaves fe 
eo Bese Boers ss fe Hey gr sfatane® 
set 1 Bor ses BNE 1 tf OF WORD 
3086 12677 MOV (SP)+, OSHR ::POP STACK INTO a 
1 MOV (SP)+, ;;POP STACK 0 
1 MOV (SP)+,R4 ;;POP STACK INTO RY 
1 MOV + 39g. 5 SBOE T NTO R3 
1 MOV (SP)+, $3 TACK INTO Re 
1 MOV (SP)+°RI : SBOP TACK NTO RI 
1 MOV (5P)+'RO ;POP TACK INTO 70 RO 
1 oo00024 MOV #SPWRON S¥PHRVEC ; # T DOWN VECTOR 
3030 12737 ooo0e6 MOV #340, J#PWRVEC+ BRIO: 
3091 O4401 TYPE REPORT HE POWER ER FAILUR 
303¢ Fe SPWRMG: .WORD PWRMSG aa MESSA’ SORTER 
309 2 12716 MOV (PC)+, (SP) £5 PO At BEGIN 
3034 Oeeebe 1584 $PWRAD: gitoRO BEGIN RES TAR ADDRESS 
3096 Oece 006 SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
3097 Oece 000776 BR .-2 BEFORE THE POWER DOWN WAS COMPLETE 
3098 Oee2e72 O000 SSAVRE: O tt puT THE SP HERE 


z 
a 


4 
Fd 


8 


WWWWWWWWWWWWWWWWWl 
ee ee ee 


GQWIWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW WW) 
ad & Bde bE ee & Bebieeeanmmeatansumenebenmenabensnenmene 
W_ ODDIE LOM ODD IO LOM Oo VR Lome 


C-11-ORLPB-A 
Pil 
2274 
e 
231 
soit 
324 1 
2332 14 
Oee340 000012 
342 0176 
B55 lige? 


sol omel 
| ond eee -_ 
oN 


WwW 
N 


oo00or- 


aa 


a6 


8 


: 


8 
eo 
eR 


AR1L1-K DIAGNOSTIC 


23 PWRMSG: 
be 
1105 
3517 
044S01 
005015 
- EVEN 


800901 o22ses 
poe 


1 


000005 


022567 


ee 


O& 
6S 
le 


022565 
OeeSb7 
OeeSb4 


DOWN AND UP ROUTINES 


o1s guasze 
Bi Bie 
Bi304 


MACY11 27(654) 
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€15><12>/RESTARTING AFTER A POWER FAILURE7<15><12><12> 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
Df be he ae ot tat ge tt att tht telat ae ta 
eo en 


pATHIS ROUTINE IS USED A 16-BIT BINARY NUMBER TO A 6&-DIGIT 
iaStyPos---EN tr He . HERE To's TO eo tiPe SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
= MOV NUM, - (SP) ;;NUMBER TO TYPED 
;* TYP. ;:CALL FOR T OUT 
i - BYTE N iiNet 19 6 FOR NUMBER OF DIGITS TO TYPE 
; a : LEADING ZEROS 
ys Os FAETYPE LES LEADING ZEROS 
; #STYPON-~--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
; ESTYPOS OR $TY 
MOV NUM, - (SP) ;NUMBER TO BE TYPED 
| ESTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
ta * MOV NUM, -(SP) ;NUMBER TO BE TYPED 
i TYPOC ted ibighaes 
STYpOS: mov. a(SP), << a Howey ope 

MOVB ( a SOMODE +1 OF sie 13 10-4 TYPE 

abo (SP) _— 
STYPOC: MOVB sire, RO FILL SWITCH 

. MOVE : SOMODE+1 T FOR eS FTaaay Be bicirs 

STYPON: MO x NT 

Roy Ba =tE ae 

MOV RS, -(SP) ie RS 

move $0 +1,R4 ;;GET THE NUMBER OF DIGITS TO TYPE 

ADD #6,R4 ; T IT FOR MAX. ALLOWED 

MOVB R4' SOMODE Save if For Use 

MOVB SOFILL,RY HE ZERO PILL SWITCH 

MOV 12(SP)/RS PIO. The INPUT NUMBER 

CLR R3 He THE OUTPUT WORD 
1S: ROL RS ;;ROTATE MSB INTO “C* 

BR 35 ::GO DO MSB 


SEQ 0074 


36 
a 


Sofas Bow Vorun eos 


ee ee a ee ae ee ae ee ee be ee 
o 
<= 


WMHS DO VEN LOO Owes VO LOI Cube worn 


Se ae be De ae ae be ae be ae be Bae ae ee Pee es ee ee ee ee ee 


t ts 
San rieet 


1-DRLPB-A 


AAL1-K DIAGNOSTIC 
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BINARY TO OCTAL (ASCII) AND TYPE 





105737 
100002 
0000 


0430 
010046 


022566 
177770 


oooode o00004 


001157 


8 33 H 

2s ROL RS FORM THIS DIGIT 
ROL Re 
MOV R5,R3 

3S: ROL R3 ;;GET LSB OF THIS DIGIT 
a ¢ 5 TYPE as DIGIT? 
BIC 8177770,R3 ;iGET RID, OF JUNK 
TST RY +; $$ Ours 0? 
BEQ ss $3 IF 3 

4S: INC RY ;;DON’T SS ANYMORE 0’S 
BIS #’0,R3 : MAK! THIS Of IT ASCII 

S$ BIS #’ °R3 : ? MAK i NOT ALREADY 
MOVB R3,8$ ;;SAVE F YPING 
TYPE at :;G0 THIS DIGIT 

7S: DECB SOCNT : COUNT 
BGT 2s ::BR IF HORE TO DO 
BLT 6$ ;;BR IF DONE 
INC RY 23 IN LAST abisit ISN T A BLANK 
BR 23 33 THE _L 

6S: MOV (SP)+,RS ; ; RESTORE 
MOV (SP)+/ RY > REST RY 
MOV (SP)+,R3 ss T R3 
MOV 2(SP)/4(SP) HH STACK FOR RETURNING 
nov (SP)+) (SP) ‘ 

8S: .BYTE 0O as DIG 
“BYTE 0 ERMINATOR F TYPE RO ATINE 

SOCNT: YT 0 QcTAL IGIT C COUNTE 

ILL: .BYT 0 RO F Lt Sul CH 
: 0 NUMBER IGITS TO TYPE 


-SBTTL TYPE ROUTINE 
Ta he ak a tt rg eh eat te ples th ies So te 


 kROUT NE TO tYPE I ERMINATE WITH A O BYTE. 
: ¥THE OUTINE WILL RT R NULL HARACTERS AFTER A LINE FEED. 
j XNOTEL: SNULL CONTAINS THE CHARACTER TO BE DAS FILLER CHARACTER. 
: #NOTEe: SFILLS CONTAINS THE NUMBER OF FI CEER CHARACTE REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


‘- YPE ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
:% TYPE 
;* MESADR 
5% 
STYpE: TSTB STPFLG 3318S THER A TERMINAL? 
BPL 1s ;;BR IF 
HALT 3 HAL LT HERE IF NO TERMINAL 
BR 3$ ; LEAVE 
1$ MOV RO, -(SP) ?:;SAVE RO 


SEQ 0075 


aS 


g 3 


eh ee ee 


Of fOFOro ra fofora rare Aurore 
POM SoONT UNE wre 


Maratha 
RRR 


i) 
Ni 


Roforore 
5B 


SUA eee ees 


oe 
Oo 


11-DRLPB-A AAL1-K DIAGNOSTIC MACY11 27(654) 14-DEC-77 20:20 PAGE 63 
i TYPE ROUTINE SEQ 0076 
022604 017600 oo0002 MOV a2(SP),RO $3 GE ADDRESS 0 OF noe STRING 
2737 000001 001214 CMPB #APTENY, SENV panes 
BNE bes ro MOO CONSOLE 
000100 o01215 ITB SAPTSPOOL, SENVM ! Gye cx FOR TO APT 


Heels 
Beers GAGGa? BRR e Fu. Be hale -" 
61$: -WORD O iipe SAGE 
oooo4o O01e1S 62S: BITB SAPTCSUP,SENVM ; ;AP 
BNE 6 3; YES, SKIP RES 
es: MOVB (RO)+,-(SP) 33 CHARACTER TO TYPED ONTO STACK 
BNE (te 33 ISN’T THE TERMINATOR 
ieee INATOR POP IT OFF THE STACK 





IF I 
00S726 rt ; 3 ao ;31F ene 
ooo002 ss k ait cP) SP) 5 ; URN PC 
27 000011 45 CPB #HT, (SP) + BRANCH IF <HT> 
b57448 ; SEo es ’ ia 
2716 O00200 CMPB #CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
FF (SP)+ ;POP_ <CR><LF> EQUIV 
O40 acRcr i TYPE A CR AND LF 
ote 023046 SCHARCNT CL ARC R COUNT 
004737 o23002 S$ oR PC, STYpEC i: GT he TG eeltcre TER 
: p TPE Th 
6S: MP F (SP)+ IT FIL eRY CHARS . ” 
OE oxic oe Py! Y orepinn Bu NS GO GET NEXT GEOR. 
. ii GET fue NUL pees. 
105366 000001 7$: DECB 1(SP) ; ;D0ES_A NOLL ED TO BE TYPED? 
BLT LS ii BR F NO--GO POP THE NULL OFF OF STACK 
7 023002 R STYPEC 60 TYPE A NULL 
105337 023046 DECB SCHARCNT O NOT COUNT AS A COUNT 
000770 BR tL O0P 
;HORIZONTAL TAB PROCESSOR 
022756 112716 oOo0040 8S: MOVB 8’ ,(SP) j ;REPLACE TAB WITH SPACE 
022762 7 023002 93: JSR Pc, $TYPEC :: TYPE A 
ae te g 090007 023046 BITB 87, SCHARCNT i }BRANCH IF NOT AT 
; Tet ' LIEBE RERPE OFF stack 
558 BR SeP ‘ He s Enh atten 
023002 105777 1S6142 STYPEC: TsT8 aSTPS ;;WAIT UNTIL PRINTER IS READY 
053018 i 33 gogace 156134 MOVB STopso aSTPB ;;LOAD CHAR_TO BE TYPED INTO DATA REG. 
16 i 000015 od00002 CMPB #cR,2tSP) i318 CHARACTER A CARRIAGE RETU 
6 LRB HARCNT ; ie ‘ a L 
02304 eur seu HARC ES--C bor CHARACTER COUNT 
34 27 000012 oo0002 1S: CMPB : F,2(SP) : TER. A LINE FEED? 
pS3pa3 14 BEQ vex i ie.cen iF oe 
105227 INCB tress. +: COUNT THE CHARACTER 
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ORLPB.P11 TYPE ROUTINE 
3261 02304%6 000000 


SEQ 0077 


SCHARCNT: .WORD O ;; CHARACTER COUNT STORAGE 


gebe 023050 000207 STYpEX: RTS PC 
64 .SBTTL TTY INPUT ROUTINE 
32 RARER KRKRARRRRERA REAR RARARARRRAAARARAAKKARRRRKERERRARRRRRKREEEE 
3667 "ENABL LSB 
REGRESS RR RRR RRRRR RRR RRRRERRRRRERRRKERRRRAERR ARERR EE 
tESOFTWARE SWITCH REGISTER CHANGE 
| a3 Fe! Re: Th “TEST, FOB, CHANGE Tn SoPTARE gut TeH WOEGISTER TRAP CALL 
| Pt R ERATING IN Tf Y Sun : 
74 0230S2 022737 000176 001140 3318 THE SOFT-SWR SELECTED? 
| 378 e3ee 156056 ‘ i KS Hi ? 
7 BPL 15$ :3IF NO *T WAIT AROUND 
3678 923070 17746 156052 MOVB aSTKB ~($P) ;; SAVE 
327 2716 177600 BIC #tC17?, (SP) j }STRIP-O F onteoe ASCII 
3100 27, 000007 CMP a7 (SP ps :;1S IT ROL _G” 
| 3} 4 is ti ret uae NG IN 
1 i 001134 000001 B TOB, #1 ; N AUTO-MODE? 
| 3283 023114 001456 BEQ 15S a TF ves 
4 77 T CNT), G T tG) 
3582 GS3148 {Budi BS3ez4 ScTswR: TYPE 0’ aquR vee CURRENT ¢ CONTENTS” 
3287 G23126 013746 000176 MOV SuReC. -(SP) ::SA yBuRes F 
3288 Oe3l3e 104402 TYPOC i588 Ree TAL ASCTS CALL DIGITS) 
3289 023134 104401 023615 TYPE , SMNEW ::PROMPT FOR NEW 
3139 19S: LR ~(SP) 3 7 CLEAR COUNTE 
4 LR -(SP) ii NEW 
3144 105777 155774 7$: TSTB STKS ?CHAR THERE? 
93 023150 100375 BPL g ::IF NOT TRY AGAIN 
3534 923152 117746 155770 MOVB a$TKB,-(S ;;PICK UP CHAR 
3636 3156 042716 177600 BIC iste *:MAKE IT 7-BIT ASCII 
32 
1 1 oo002s 9S: CMP (SP), #25 :;IS ITA ONTROL-U? 
ae a 
3303 Ge 74 062706 000006 20$: Dp k& SP ;; IGNORE PREVIOUS INPUT 
3308 3450 006 19$ ::LET’S TRY IT AGAIN 
3306 
1 000015 10S: MP (SP), #15 ITA <CR> 
BNE 163 ::BRANCH IF_N 
i oo0004 S 4(SP) : BR IS IT THE FIRST CHAR? 
SNe SCM Chae 155714 matt 318) asuR honey Ne 
3312 53828 velefelet 11S: ate #6, SP’ oe UP STACK 
31 32 401 001171 145: TYPE ScRLF *ECHO <CR> AND <LF> 
3314 023234 123727 001135 oo0001 CMPB SINTAG, #1 *RE-ENABLE TTY KBD INTERRUPTS? 


O06 
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ORLPB.P1l TTY INPUT ROUTINE SEQ 0078 
iS 3242 901003 BNE 15$ ;;BRANCH IF NOT 
1g 77 000100 155672 MOV #100, 3STKS ;;RE-ENABLE TTY KBD INTERRUPTS 
1 1S$: RTI ; ; RETURN 
1 923008 16S: JSR PC, STYPEC > ECHO C 
1 0060 CMP (SP), #60 >:CHAR < 0? 
4 BLT 18S ;;BRANCH IF YES 
1 000067 CMP (SP), #67 >;CHAR > 7? 
5 BGT 18$  }BRANCH IF YES 
74 000060 BIC #60, (SP)+ ::STRIP-OFF ASCII 
766 oo00002 TST 2(SP) 33;1S THIS THE FIRST CHAR 
14 BEQ 173 ;;BRANCH IF YES 
16 ASL (SP) :;NO, SHIFT PRESENT 
10 316 ASL (SP) 7; CHAR 9 R TO MAKE 
le 16 ASL (SP) 33; __ ROOM ONE. 
14 ooo002 178: INC 2(SP) 3;KEEP COUNT OF CHAR 
3330 023320 OS6616 177776 BIS =2(SP), (SP) ;;SET IN NEW 
31 93324 900707 BR 73 :;GET THE NEXT ONE 
32 3326 104401 001170 18$: YPE SQUES :TYPE ?<CR><LF> 
3333 023332 000720 BR 20S ;;SIMULATE CONTROL-U 
3334 .DSABL LSB 
3335 
3337 Bs MERE KE HRA S KALA ARK KARA RRE KERR RARERRARERRARRAERRRAKRKRAEE 
3338 j RTHTS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
3340 : RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 
3341 :% RETURN HERE ;;CHARACTER IS ON THE STACK 
34 $x >:WITH PARITY BIT STRIPPED OFF 
ce , 
3345 023334 011646 SROCHR: MOV (SP), -(SP) ; PUSH THE PC 
3346 023336 016666 o00004 oD0002 MOV 4(SP3,2e(SP) SAVE Oot ps 
3347 deaau4 105777 155574 1S: TSTB asTKS ;;WAIT FOR 
8 O23 100375 BPL 1$ $3 CHARACTER 
3343 O23 17765 155570 OO0004 MOVB a$STKB,4(SP) i ;READ THE TTY 
3350 Oe 27 77600 000004 BIC #4C<1?7>,4(SP) ::GET RID OF JUNK IF ANY 
3351 ba0804 000023 CMP 4(SP), #23 >3;1S IT A CONTROL-S? 
338¢ 74 091013 BNE 3$ i ;BRANCH IF NO 
3 108 77 1ss5S42 2s: TSTB gS TKS :;WAIT FOR A CHARACTER 
54 100375 BPL 2 ;;LOOP UNTIL _ITS THERE 
3355 3404 117746 155536 MOVB a$TKB,-(SP) ;;GET CHARACTER 
3386 3410 7 2 177600 BIC #tC17?, (SP) i MAKE IT Z-BIT ASCII 
14 0021 CMP (SP)+, #21 3;1S IT A CONTROL-Q’ 
ae Benes x i Hes" netinewe 1 
3360 023424 O26627 O00004 OO014O 3s: CMP 4(SP), #140 ?:1S tT UPPER CASE? 
336 Oe 32 90 g BLT 4g ;;BRANCH IF YES 
32 Ge 34 ebbe7 000004 000175 CHP SP), #175 j:1S 17 A SPECIAL CHAR? 
3364 023444 paSeEe 000040 ooo004 BIC #40,4(SP) :;MAKE IT UPPER CASE 
3365 O234Se o0000e 4S: RTI *:GO BACK TO uSER 
2208 55 6 63636 36 6 969 9 9 990 8 98 90 8 9 2 
3367 j ATHIS ROUTINE WILL INPUT @ STRING FROM THE TTY 
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HE BUFFER AND LOOP 
HE CHARACTER 


DRLPB. TTY INPUT ROUT SEQ 0079 
3369 5% ROL IN ;; INPUT A STRING FROM THE TTY 
70 1 RETURN HERE :;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
7 * i >: TERMINATOR WILL BE A BYTE OF ALL O'S 
337 4 Ol SROLIN: MOV R3,-(SP SAVE R 
74 : 0 3 1$: OV aSTTYIN,R3 ;;GET ADDRESS 
703 023572 2s: chr aSTTYIN+8. ,R3 ; BUFFER FULL? 
1014 os 4S ;;8R IF YES 
33 104410 ROCHR 33 AD ONE CHARACTER FROM THE TTY 
33 Ms ;' 
:TY 
;;CLEAR 
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Bakes 
U- 
= 


3384 3514 104401 023566 TYPE 95 
Ser BSG pices COONS ee Heme CHEK FOREN 

338 108063 177777 CLRB -1(R3) ?:CLEAR RETURN (THE 15) 

63 ° 401 001172 TYPE ar, o- i} TYPE A LINE FEED 

3 11646 MOV (SP) ,-(SP) + RESUS THe STACK AND PUT ADDRESS OF THE 
3 4 1 8 999004 gog0ge nov 4iSP) e(SP 2. He FIRST ASCII CHARACTER ON IT 

3 RTI . ; ; RETURN 

3394 QS: - BYTE 0 si STORAGE FOR ASCII CHAR. TO TYPE 

SO a eS a al 

3398 0235 136 006507 OO00i2 SCNTLG: ASC PGs 18> 133 ::CONTROL “G” 

3003 eat poss 5 053553 O2e01le2 SMSWR: .ASCIZ <15><12>/SWR = 7 

3401 023615 O40 047040 OS3SO0S SMNEW: .ASCIZ 7 NEW = / 

3402 Oe3622 036440 O00040 

3103 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 

3405S fp, Me HE Me ME AE ee AE HE He HE eH HH HE HH HH EER RARER REE REEL EE 

3406 jATHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

3408 ; CALL: : 

3409 1 i RDOCT ;;READ AN OCTAL NUMBER 

3410 3% RETURN HERE +:LOW ORDER BITS ARE ON TOP OF _THE STACK 
411 ir > HIGH R BITS ARE IN S$HIOCT 

3413 023626 011646 SRDOCT: MOV (SP), -(SP) ; j PROVIDE SPACE FOR THE 

3414 023630 016666 00004 oD0002 MOV 4(SP},2(SP) ?: INPUT NUMBER 

3415 023636 010046 MOV RO, -(5P) ;;PUSH RO ON STACK 

3416 Ge3640 010146 MOV R1>-(5P) : PUSH RI ON STACK 

3417 ge 4 0246 MOV Re; -(SP) ; PUSH ON STACK 

3418 3644 104411 1S: RDLIN >:READ AN ASCIZ LINE 

3419 De3b46 012600 nov (SP)+,RO j;GET AODRESS OF IST CHARACTER 

3421 pSspe5 S002 CLR Re # 

3422 023654 112046 2s: MOVB (RO)+,-(SP) ;;PICKUP THIS CHARACTER 
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DRLPB.P11 READ AN OCTAL NUMBER FROM THE TTY SEQ 0080 
3423 023656 001412 BEQ 3s ;;IF ZERO GET OUT 

ASL R 33; %2 

ROL R 

ASL 3384 

ROL Re 

ASL Ri 5348 

Nts RSC? (SP) TRIP THE ASCII JUNK 

itd (SP)4,R1 ::ADD IN THIS 6417 

BR #2, : 5 OOF 

3S: ST (SP)+ ::CLEAN TERMINATOR FROM STACK 

MOV Ri, 12(SP) ::SAVE THE RESULT 

MOV R SHIOCT 

MOV (SP)+,R ;;POP STACK INTO Re 

MOV (SP)+°R1 ::POP STACK INTO RI 

nov (SP)+;RO ::POP STACK INTO RO 





> > RETURN 
SHIOCT: . 0 :?HIGH ORDER BITS GO HERE 
.SBTTL. APT COMMUNICATIONS ROUTINE 


ss Sb SE SESE 3 He Se SE Me EH HE SE HE EE HE HE aE HE HE EH EEE EE RRR RE REE 


023730 112737 000001 024174 $ATY1: MOVB #1, SFFLG ;;TO REPORT FATAL ERROR 
reas 737 000001 O24172 SATY3: vB 21 ,SNFLG ::TO TYPE A MESSAGE 
1127 000001 024174 SAT: MOVB #1,SFFLG ;;TO ONLY REPORT FATAL ERROR 
* MoV RO,-(SP) 55 RO TACK 
MOV RO. -t 35} +t Buen R1 STACK 
024172 ro1B SHFLG i; SHOUL TYEE A MESSAGE? 
000001 001214 cHPe #APTENV, SENV t  OpeRar ina R APT? 
000100 oo1e215 BITB SAPTSPOOL,SENVM ;; “SPOOL MESSAGES? 
BEQ 3 ::IF NO ig aBE 
ooo004 — MOV : (SP) RO ;3GET MeSs ADDR. a 
Berea 1$: pO? $2.4 (SE) +SEE 1F BONE W/ tHe OPS 10Nn? 
001210 AOY 25 sMsGAD TT NRODR TH MATLBOX 
2s: zie Rd} + + PUNO icy bf Meas aer 
melee 2 e _ 1 Eee Se aGe LNETH IN WORDS 
001212 MOV RO, SMSGLGT ::PUT LENGTH IN MAILBOX 
000004 001174 H v ag, SMSGTYPE :;TELL APT TO TAKE MSG. 
3468 oo0004 024104 3S: nov a4 (SP) 4s ;;PUT MSG ADDR IN JSR LINKAGE 
ena 22778 — MOV age ; PUSH 35776 ON STACK 
7 2s JSR C, STYPE ?;CALL TYPE MACRO 
3473 Ws: .WORD O 
3475 024174 10S: TSTB SFFLG ;;SHOULD REPORT FATAL ERROR? 
3476 BEQ 12$ ::IF NOT: BR 
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336 Boot 
3497 000040 
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4 
3210 Oe4e10 111000 
’ 
3213 Osusis Biedoc 
3513 Oe4el& o00200 
3514 
3515 
#218 
1 
318 4220 01164 
Si 4eee 016666 
3520 O24230 00000 
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3527 
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TST SENV RUNNING UNDER APT? 
BEQ 12$ F NOT: BR 

11S: ret GTYPE nie § batt MESSAGE? 
MOV D4(SP),SFATAL ;; nat 
PRE ate? TELL, hi EPR 

12S: CLRB SFFLG ATAL FL 
ctRe 4 Sec et Ba me tetcrtey, 
Rey 3: Poe ageee ING RS 

MFLG: .BYTE O ease. FLAG 

Screg: “BYTE E tea Far Prac 
~EVEN 

APTSIZE= 

APT =001 

APTSPOOL=100 

APTCSUP=040 


-SBTTL TRAP DECODER 


; jSAPENES SEER SESS eH E ee eR eee eee eee ETERS. Tne TRUST 
ATH . ois. o PICKUP THE LOWER BYT THE a INSTRUCTION 


tt HE DESIRE ae a Ree JPRLE EOE 1 0B AINeD I? witb 
i300 7 TO T ROUT 


ona MoV RO 5{SB) ger rn BP 
ney -(RO)’ Had 
MOVB (RO), RO Bale i nor. TRAP 
ASL RO EXING 
MOV $TRPAD(RO) ,RO 
RTS RO 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
STRAP2: MOV (SP), -(SP) ;;MOVE THE PC DOWn 
MOV 4(SP5,2(SP) ::MOVE THE PSW DOWN 
:;RESTORE THE PSW 


.SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE eh ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP™ INSTRUCTION 


; ROUTINE 
$TRPAD: .WORD STRAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 


SEQ 0081 


3531 
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Oe4642 


Oe4644 
024644 


0246S0 


0246S2 
024660 
Oe4664 
024670 


TRAP 


022366 


4e 
bBi176 
023122 


Oe3334 
34S4 
023626 


000074 
000074 
000074 


000240 


013746 
000413 


012737 
005237 
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000401 
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024676 000004 
170000 
024672 


BUF e: 


BUF 3: 
BUFFER: 
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STYPOC ;;CALL=TYPOC TRAP+ (194408) TYPE OCTAL NUMBER (WITH LEADING 
S$TYPOS ;;CALL=TYPOS TRAP+ 403) TYPE OCTAL NUMBER (NO LEADING 2 
STYpON N 3;CALL=TYPON TRaPs4( 10440") TYPE OCTAL NUMBER (AS PER LAST 
STYPDS ;;CALL=TYPDS TRAP+S5(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
SGTSWR ;;CALL=GTSWR TRAP+6( 104406) GET SOFT-SWR SETTING 
SKA ; ;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT Sur 
ROCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTE ROU INE 
SROLIN ;;CAL C=RDL IN TRAPS 11 C1O44i0 9 TTY TYPEIN STRING ROUTINE 
SROOCT ne nes: TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
-BLKW 60. 
‘BLKW 60. 
66. 
NOP 
3% 
$#THIS SUB CODE IS USED TO INITIALIZE THE | LPA-11 
> #FIRST WILL LOAD MICROCODE INTO KMC-1 
;#NEXT WE WILL INIT TH ESSORS 
:*#THEN WE WILL LOAD LOAD DEV ie enpet AVE UP. 
j RTHE ORDER LOAD EYEE HE USER. 
+H CALL= JSR eat 
1 a . WORD ;ADDR. OF DEVICE ADDRESS. 
+% ROUTINES REQUIRED:  .LOADLP 
i PROGRAMS REQUIRED: DRLPX2 
3% ;RETURNS WITH SAERR=1 IF SLAVE 
i :MICRO SAYS AN ADDR. DOES NOT EXSIST. IN THE LIST. 
MOV 4,-(SP) 
BR 31$ ;FIELD DOES NOT HAVE A BUS SWITCH TO 
: Y ABOUT, SO We WILL UNCONDITIONALLY 
; BRANCH T XT CODE THAT 
; WORK ON A SWITCH. 
;CODE LEFT IN HERE FOR IN HOUSE 
:PER WHO MAY PATCH THIS BRANCH 
; INS I TOA < > OCTAL <24O> 
IN R TO rUN PROGRAM WITH A SWITCH. 
s NOTE THIS “SWITCH” IS A PIECE OF INHOUSE 
: TES EQUIP NT ONLY IT CONNECTS 
>THE UNI O THE I/O BUS FOR 
:CERTAIN TESTING 
MOV #303,4 
INC 170000 
TYPE 65$ ;; TYPE ASCIZ STRING 
BR 64S :;GET OVER THE ASCIZ 


ee eee - - - 
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TRAP TABLE SEQ 0083 
3585 -:65$: .ASCIZ <7>88 
74 64s: 
74 1 R 31$ 
30S: CMP (SP)+, (SP)+ 
318: MOV (5P)+'4 ;ALL THIS JUNK MUST BE REMOVED!! 
S22 CLR $AERR 
g 710 7 524 ISR RS, SLOAD ;LOAD MICRO-CODE . 
30 7 iW DRLPxe :FILE “DRLPXe. OBJ” 
3234 024716 052777 oO4O000 154S12 BIS #BIT14,3KMADO ;ISSUE KMC+DMC INIT. 
024724 18: 
33 ;"HANGS” HERE THEN KMC-11 ERROR. 
7; 10146 MOV R1,-(SP) 
7 CLR Ri 
7 2s: INC Rl ;STALL FOR OMC-UP 
335 of 5 104000 154474 BG ea1T1S!B1T11 aKMADO ;SET RUN, AND ENABLE ARBITRATION. 
’ ’ 
742 2ss: NCB Ri 
744 aoi376 BNE ess 
O27 777 000040 154462 BIT 8815, AKMADO ;SLAVE READY? (READING IPBM SR) 
754 1401 BEQ 
;FATAL LPA-11 ERROR SLAVE NOT READY. 
3609 024756 104000 ERROR 
3e11 g276 012777 oOO004 1544S4 33: MOV #4, AKMAD2 ;READ FAST PATH 
313 024766 004S37 026434 ° JSR RS, STOUT ;-TOUT-CHECK FOR TIMEOUT 
3615 024772 104000 ERROR /TIME-OUT ERROR 
3b16 i We FAILED T COMPLETE 
3618 + CONT NUES IN THIS LOOP 
3619 +/7WOULD MAKE US “HANG” HERE 
321 024774 000774 BR 4§ 
36e3 /RETURNS HERE-FROM-TIMED OUT. 
024776 122777 000377 154436 CMPB #377, AKMAD2 WAIT TILL KMC DONE COMMAND. 
3625 025004 001370 BNE 4§ 
goeb Ge5006 126777 000377 154432 cNPS 8377 , @KMADY ;IF FAST PATH=377 THEN ERROR. 
36¢8 025016 104 ERROR ; IPBM ERROR (SLAVE SIDE) 
3669 :¥OU MUST RUN IPBM DIAGNOSTIC. 
3631 O25020 122777 oO00004 154420 35S: CMPB #4, IKMADY ;IS_ THIS THE CORRECT VERSION OF MICRO-CODE? 
3632 1 43 BEQ Esa : YES-CONTINUE. 
3633 2? 177777 INC #-1 
36 50. 1140 BNE S$ 
3635 036 005227 177777 INC #-1 
339 p5ep44 reer o2s0S2 ORE $855 TYPE ASCIZ STRING 
3638 O250S0 bb0440 BR 66s ttGET OVER THE ASCIZ 
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ORLPB.P11 TRAP TABLE SEQ 0084 


ijg75: -ASCIZ <200>"W ARN ING _ THIS PROGRAM WAS DESIGNED TO RUN WITH VERSION 4” 


g25152 66s: 
3e41 15e 104401 025160 TYPE cl STRING 
a5 - —_ 69$: .ASCIZ OBS entcRO- cove! Sore He oR hoe WAS DETECTED.” 
Sue Goesun 4 025246 bis: YPE 71S 1Z STR 
Sede BSes49 A8d94 ne afd Tat et a te 
47 -:71$: .ASCIZ <200>"THIS MAY OR’ MAYNOT CAUSE FALSE ERROR TO BE REPORTED.”<200><200> 
Fae 025336 >Os: 
SO 12737 177777 025470 SS: MOVB #0-1,11$ sDAC C FOR SLAVE. 
3e MOV (5)+, Ri ;GET Rext DEVICE ADOR. 
36 11 oo0c00 6S CMP (RL), > TERM REACHED? 
1494 BEQ 10 
36 354 105237 025470 INCB 11$ 
3655 3777 470 154060 nove 3iS,aKMAD4 sFIEO bare 
= aize w086 MOVB cals @KMADY :SERD L YTE OF DEVICE ADDR TO SLAVE. 
3659 402 112177 154040 MOVB (R1)+, IKMADY :SEND HIGH BYTE OF DEVICE ADDR. TO SLAVE. 
3660 406 737 025472 J Pc, 20$ 
ooo002 4 7S: T T MA :WAIT FOR FIFO DATA 
ee O35u26 835254 i Bac sistent +=1 NO Bara. =0 DATA. 
3e64 4 112777 oo0002 154012 MOVB #2, IKMAD2 READ FIFO 
3666 025430 8s: 
3667 025430 004537 026434 JSR RS, STOUt ;-TOUT-CHECK FOR TIMEOUT 
spe8 025434 104000 ERROR 
3670 ile FAILED 10 TO 0 cone LETE 
7 7¢ R THIS LOOP 
3073 + OUL MES us “ HERE 
3675 025436 000774 BR 8S 
77 / -FROM-TIMED OUT. 
358 025440 122777 000377 153774 CMPB #377, IKMAD2 ia FOR HERB: 
3679 025446 001370 BNE 
3680 S4S0 105777 153772 TSTB aKMADY ;waS 8 A ZERO & RE TURNE 
1 6454 001734 BEQ 6$ 
3e85 025456 005237 oess22 INC SAERR eet Pte go0e 2” 
3684 =i IF ELSE GIVES ERROR. 
3685 025462 o0S041 CLR -(1) EET RID OF REFERENCE TO BAD ADOR. 
025464 012601 10S: MOV (SP)+,R1 
3566 025466 000205 RTS RS ;RETURN ALL ADDR. CHECKED. 
6 025470 oo00000 11S: .WORD O ;HOLDS DAC CODE PLUS OFFSET 
3650 :TO SLAVES ADDR. TABLE. 
3692 025472 112777 o000003 153742 20S: MOVB #2, JKMAD2 ; ISSUE FIFO WRITE 
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004S37 026434 
104000 


000774 


j55556 000377 153724 
000207 - 
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Es 
See 153666 
o8 153654 
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15969e 


002000 153620 
153630 


177777 


183604 
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EATHIS "= CODE i TO 


14-DEC-77 20:20 PAGE 72 


;-~TOUT-CHECK FOR TIMEOUT 


-OUT ERROR 


Dain ade Rat ON. ssi 
/CONTINUES IN THIS LOOP 


: MOULD MAKE US “HANG” HERE 


RS, STOUT 


RETURNS Hy tes QUT. 


ie Oe ee —T 
;=0 IF ADDR. LIST OK,=1 IF BAD. 


LOAD MICRO-CODE INTO LPA-11. 
RS, SLOAD 

;ADDR. OF MICRO CODE. 
Pie MUST END IN -1 DATA. 


NOTE: ipelors 


R4Y,-(SP) ;SA 


aK a RAM ADDR 
(0), #1 ;ALL DENES 
es LOOP. 
3KMADY *CLEAR CRAM ADDR. 
-2(5),RO ?GET MICRO CODE ADOR. 
#2000, JKMADO ;SELECT CRAM 
(RO) +, JKMADG ;DATA 

3NO = REPORT AN ERROR. 
(0), #-1 ?ALL DONe? 
aeMADO VES ~ ECT CRAM 
SicHDS IND? DESL ADDR. — 
(SP)+,RO ;RESTORE RO 
(SP)+,R4 j RESTORE R4 


SE@ 008s 


MA INDE 
DRLPB. 


C-11-DRLPB 
Pl 


026000 
Oe600e 


-A 
TRAP TABLE 
eae 
bop800 
000722 
10046 
2500 
000340 
7 46 
cae 
1 153536 
ll 74 
1les 153514 


153524 


153502 


153460 
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STLKW: 


STLKR: 
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;COME HERE ON LOAD ERROR 


TST -(5) 
INCB RY ; UPDATE ERROR COUNTER. 
BPL 1$ :IF NOT TOO MANY, TRY AGAIN. 
HALT :MICRO C LOAD ERROR. 
:KMC-11 FAULT. YOU COULD TRY 
BR 1s :TO SS CONTINUE TO GIVE IT 
? ANOTHER CHANCE BUT I bougT 
:THAT THAT WOULD WORK. SINCE I’VE 
*ALREADY GIVEN IT 177 (OCTAL) CHANCES 
:TRY RUNNING THE KMC-11 DIAGNOSTIC 
j #THIS ROUTINE ISSUES A WRITE COMMAND TO THE LPA-11 
:% CALL = JSR RS, STLKW 
i .WORD OQ ;OFFSET OF DEVICE ADOR 
a ‘WORD O :DATA TO BE WRITTEN 
-& 
Mov RO, -(SP) ;SAVE RO 
MOV (55+,RO :GET DEVICE OFFSET 
BIS #340; RO ;ADD_WRITE CODE. 
JSR PC, $LP :WAIT FOR FAST PATH READY 
MOV RO, Wi 
MOV "4 
MOVB #5, aKMAD2 ; ISSUE FAST PATH WRITE 
JSR SLPW :WAIT FOR RDY 
MOV (53, We 
MOVB (5)4, JKMADY ;WRITE LOW BYTE DATA. 
MOVB #S, aKMAD2 ;FP WRITE 
JSR PC SLPW 
MOVB (53, W3 
MOVB (5)4, KMADY ;WRITE HIGH BYTE 
MOVB #5, akMADE 
JSR PC’ SLPW 
MOV (SP)+,RO 
RTS RS ;EXIT DONE. 
0 
0 


;# 
j STHIS ROUTINE ISSUES A READ COMMAND TO THE LPA-11 
* CALL = JSR RS,STLKr 


ts id 
if ;RETURNS HERE 
; #DATA IN WORD SOATR 


MOV 
MOV 


;OFFSET OF DEVICE 


RO,-(SP) 


;SAVE RO 
(5$+,RO 


;GET OFFSET 


SEG 0086 


2S 
o- 
BS 
VO 
1 
— 


secnnven 


Ob pe bo be be pe pe 


OD NOU WTO 


Tee 


eleven nanay ii 


reef idtaataetttt: 
Whe 


Rineeeeat 
5 3 es 


ge 
pe 
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TRAP TABLE SEQ 0087 
000300 BIS #300, RO ;ADD READ CODE 
G26 146 ISR PC, $LPW :WAIT TILL READY 
3426 MOVB RO, akMacy 
153414 MOVB ” IKMAD2 ; ISSUE WRITE FP 
146 JSR PC; SLPW 
14 - MOV RO’RO1 
026434 < JSR RS, $TOUT ;-TOUT-CHECK FOR TIMEOUT 
ERROR ;/TIME-OUT ERROR 
:/WE FAILED TO COMPLETE 
:/C NT RATION. 
: CONTINUES IN THIS LOOP 
:/WOULD MAKE US “HANG” HERE 
BR 1$ 
: (RET HERE -F ROM- TIMED OUT. 
000040 153362 BIT #B1TS, aKMADO IF TOPATH GOT DATA? 
153356 MOVB a4, aknane ; ISSUE FAST PATH READ 
026146 JSR PC’ $LPW 
1533S2 026144 - MOVB QKMADY , SOATR ;GET LOW BYTE 
026434 : ISR RS, STOUT ;-TOUT-CHECK FOR TIMEOUT 
ERROR 5 /TIME-OUT ERROR 
t/ AILED TC COMPLETE 
:7C NT OPERATION. 
: CONT NUES IN THIS LOOP 
: /WOUL — US “HANG” HERE 
BR 2s 
5 ZRETURNS RE-FROM-TIMED OUT. 
o00040 153322 IT 8815, 3KMADO :FAST PATH READY? 
153316 MOVE #4, aKMAD2 ; ISSUE FAST PATH READ 
146 JSR PC’ SLPW 
153312 026145 VB aK SDATR+1 ;SAVE HIGH BYTE 
MOV (SP)+, RO 
RTS RS 
ROI: 0 
SDATR: .WORD O 
THIS ROUTINE WAITS FOR KMC-CODE TO BECOME READY AS WELL 
AS FAST PATH TO BE READ. 


LT WILL TIME OUT IF TOO MUCH TIME IS TAKEN BY 
THE MIC 


; T 
: CALL = JSR PC, SLPW 
: RO-PROCESSORS AND REPORT AN ERROR, THEN HALT. 


1 ARLI-K DIAGNOSTIC MACY11 27(654) 14-DEC-77 20:20 PAGE 75S 
ORLPB.P11 TRAP TABLE 


SEQ oo8se 
3855S 1 10146 SLPW: nov Ri, -(SP) ;SAVE R1 
i 000377 153262 1S: cnre 8377, aKMADE ;FINISHED INSTRUCTION? 
1 INC R1 ;TIME OUT? 
164 BNE 1g 
166 il BR 10$ 
170 777 o00020 153240 2S: BIT #81T4, IKMADO ;FAST PATH READ? 
3864 1 1403 BEQ 3$ 
i INC R1 ;NO - TIME OUT? 
1 BNE 2s 
3867 02 BR 10s ;YES - REPORT AN ERROR 
3 012601 3S: MOV (SP)+,R1 ;RESTORE R1 
oy BSesi8 Saseo> RTS PC PEXIT 
7, 1 108: 
3370 psest 104401 026220 TYPE 65S ;; TYPE ASCIZ STRING 
3874 Oe62e16 000407 BR 4$ ::GET OVER THE ASCIZ 
75 -:65$: .ASCIZ <200>#LPA-11 FAULTS 
38 026236 64s: 
38 026236 oo0000 i1$: HALT ;LPA-11 FAULT RUN LPA-11 
3699 026240 000776 BR 118 : DIAGNOSTICS. 
3881 
BS ;* 
3860 :#THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE TO 
388s ; #A DEVICE ADDRESS ON THE I/O BUSS FOR WRITE ONLY. 
3669 :% FIRST WE WILL DETERMINE IF THE ADORESS HAS BEEN USED 
3888 !% BEFORE. IF NOT WE HAVE TO INITIALIZE THE LPA WITH 
3889 :# THAT ADDRESS 
3890 :% WHEN THE ADDR. IS KNOWN BY THE LPA, DO THE OUTPUT BY 
3532 + $TLKw 
3894 O26242 01004 SOUTLP: MOV RO, -(SP) ;SAVE RO 
389S Oe6e44 O10146 MOV R1'-(SP) :SAVE R1 
3538 Dees pie700 001464 Roy g,OVLS, RO ;PROGRAM DEFINED LIST. 
4 905710 1$: TST (0) ; TERMINATOR REACHED? 
3900 142 BEQ 10$ :YES NEXT STEP. 
3901 p27e50 oo00000 CMP a(5), (0+ ?MATCH WITH ADDR IN LIST? 
4 001402 BEQ 2g 
g05201 INC R1 
1 BR 1$ 
3308 oBeee re) 0137 026310 2s: mov Ri, 38 ;SAVE OFFSET, DEVICE KNOWN. 
300 026300 013537 026312 MOV a(5)+,4$ ;GET DATA TO BE WRITTEN 


epinceieereeny | 


Ba 


Z 


ULUi UUs as saga ae cri 
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TRAP TABLE SE@ 0089 
ager B80856 025664 . JSR RS, STLKw iBEViCE Seeser 
i8 a3: WORD 8 {DATA TO BE WRITTEN. 
14 01 MOV (SP)+,R 
Geb316 1 MOV (5P)+'R 
0002 RTS RS 
ooooco 10S: nov a(S, (0)+ ;SAVE ADDR. 
4 024644 SR SLPAI 
026334 001464 .WORD .DVLS 
026336 000755 BR 2g 


iSTHIS ROUTINE PROVIDES THE LINKAGE FROM USER a 
saT0 A DEVICE ADDR. ON THE I70 BUSS FOR READ ONL 


HSUBEB BEFORE “IP NOT, NE HAVE TO INITIALIZE THE LPA 


N THE ADDR are KNOWN WE CAN DO oUTPUT THROUGH 


sie 
:% CALL THROUGH MOVEI DATA,ADDR. 
:% WHICH EQUALS: 
;* JSR RS, SINL 
:% ; x ADDR OF DEVICE 
: “WOR YY ADDR TO STORE READ DATA. 
926340 010046 SINLP: MOV RO,-(SP) ; SAVE RO 
10146 MOV R1;-(SP) :SAVE R1 
026344 012700 001464 MOV #.DVLS,RO ;PROG DEFINED ADDR. LIST. 
005001 CLR R1 
Oeb35¢ 7 1S: TST (0) iE REACHED? 
4 14 Q 10$ :YES - DEFINE NEW ADDR. 
7520 ooo000 CMe a(S), (0)+ ;ADDR. MATCH? 
5 Bbesbi me 
026366 000771 BR i$ 
4 7 O26402 2s: MOV Ri 3$ ;SAVE LIST OFFSET 
74 TST (S34 
76 026000 JSR RS,S$TLKr ;GO READ DEVICE 
026402 S$OFS=. 
026402 000000 3S: WORD O ;OFFSET OF DEVICE 
404 013735 026144 MOV SDATR,a(5)+ ; STORE DAT A. 
410 012601 MOV (SP)+,R1 ?RESTORE R1 
412 012600 MOV (SP)+/RO :RESTORE Re 
414 0002 RTS RS ?EXIT 
026416 017520 oo00000 10S: MOV a(S), (0)+ 
026422 Bo5010 CLR (0) ’ 
026424 004537 o24644 JSR RS, SLPAI 
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TRAP TABLE 


ORLPB.Pil 
3963 026430 
33964 026432 
iz 
3 
3372 
3374 26434 
3375 BBEuag 
a Oeb44e 


: 
é 


pee 


3 


SeeEE 


001464 
000756 


oo4 
062737 


000764 
000207 
000000 
160000 
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Oessee 
000002 026530 


STOUT: 


1S: 


8: 


$SAD: 
SCNT: 


SRESET: 


10$: 


1$: 
es: 


MACY11 27(654) 14-DEC-77 20:20 PAGE 77 


.WORD .DVLS 
a. 
jESTOUT ROVTING URED TB WBICH OIE 
: CALL= JSR RS, STOUT 
# RROR x ;RETURNS HERE ON TIMEOUT 
5 ;RETURNS HERE NO ERROR 
2 
cNe , SSAD ;SAME ADDR? 
MOV RS, SSAD ;NO- THIS ADOR. 


cLR AT :CLR CNT AT ADDR. 


BMI =s«:3S VES “ERROR ABE TURN 
i i ies. 


R 

.WORD O ; CONTAINS OOP ADDR. 

-WORD O ;# OF TIMES AT ADDR. 

-% 

i THIS ROUT asch CPi ther te HE USER WOULD ORDINARI LY 

Pe N WE CLR Rae) oust WHt CH He pene oS 10 RESET Bort THE 

j BKC AND DMC AS SOON AS A DEVICE IS REFERENCED 

;# CALLSJER SRESET paaapeee “RESET INSTRUCTION 

4 URNS HERE. 

RESET ;RESET THE WORLD. 

V $ ;/READ Oey c DATA IN 1S. 

WY BEBeh Pho Eac88 oe 

BNE 10$ AN ERROR 

ADD #2,25 iy CE ADDR 
: YOU E HAVE TO PROTECT OUR SELF! 
3 IF oft INED A VALID ADDR, WE 
:MUST KEEP TRYING UNTIL WE GENERATE 
:AN INVALID ADOR. 

BR SRESET 

RTS PC 

.WORD O ; JUNK LOC. 

‘WORD 160000 :DUMB ADDR. FORCES INIT OF DMC/KMC. 


 SDELAY- ROUTINE TO GIVE A BINOR DELAY. 
; IS NOT TIME DEPeNDENT CODE SENCE 
; NOT USED TO GET SPECIFIC TIME BUT 


SE@ 0090 
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TRAP TABLE SE@ 0091 


; JUST A LITTLE DELAY. 
THAT IS UNLESS A REAL TIME CLOCK IS PRESENT! 
THEN WE’LL GENERATE A TIME BETWEES 16MS TO 32 MS 


CALL= JSR PC, SDELAY 


S32 SDELAY: 
6532 005737 026614 TST RTCCSR ;CLOCK PRESENT? 
026536 100016 BPL 10$ 
026540 Ole oo0002 026604 MOV #2, TIME 
026546 535, 000115 000040 BIS #115, IRTCCSR ;START CLOCK 
6554 905037 177776 CLR PS 
026604 1S: TST TIME 
6564 13 BNE 1§ 
026566 005077 o00022 CLR JRTCCSR ;STOP CLOCK 
72 000207 RTS PC 
a3 bprsre eo" os: a 
O26602 000207 RTS PC 
026604 000000 TIME: .WORD O 
005337 026604 CLKINT: DEC TIME 
6612 90000e RTI 
026614 0o000 RTCCSR: .WORD O ;CLOCK CSR IF USED. 
s 
;#THIS MACRO ALLOWS THE OPERATOR TO TALK TO 
*#ANY DEVICE ON THE I/0 BUS 
: #USER mUST START AT THIS ADDR. 
: MUST SAY EITHER “E” FOR EXAMINE, OR “D” FOR DEPOSIT. 
;#"E" IS DEFAULT. 
:*#NEXT, HE MUST SUPPLY AN ADDR. 
:*¥NOTE IF ADDR. IS NOT FOUND ON I70 BUS, A HALT 
;*#WILL OCCUR. 
026616 “ SUTK: 
Gebb16 005037 001464 one CLR .DVLS 
Oeb622 104401 026630 ; TYPE 65S ;: TYPE ASCIZ STRING 
026626 o000405 et , = bus aE “6 we ::GET OVER THE ASCIZ , 
026642 ; 64s: 
Debbie 105777 152276 1S: TSTB aSTKS 
46 100375 BPL 1$ 
50 117737 152272 026772 MOVB aSTKB, 20S ;GET INPUT 
026656 104401 026772 TYPE, 20% :ECHO, NEXT MESSAGE. 
142737 000240 026772 BICB #240, 20S :STRIP PARITY, LC 
10441 RDOCT :GET ADDR. 
026672 012637 026770 MOV (SP)+, 14S 
026676 123727 026772 OO00104 CMPB 20S, #'D ; DEPOSIT? 
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DRLPB.P11 TRAP TABLE SEQ 0092 
4074 026704 001411 BEQ 10$ 
4073 026706 004537 026340 JSR RS, SINLP ;GET DATA 
4074 712 026770 2s: -WORD 14% 
4076 026714 026726 ‘WORD «65S 
4077 7 0137 026726 MOV S$,-(SP) ;;SAVE S$ FOR TYPEOUT 
4 28 Oee7 g 1oeige ryPoc nad #800] YPE--OCTAL ASCII(ALL DIGITS) 
iied GEESEC BE0688 ss: “loro § 
408e 0267 10S: 
4083 0267 104401 026736 TYPE 67S ;; TYPE ASCIZ STRING 
4084 626734 OO0404 BR 66$ ::GET OVER THE ASCIZ 
woes --67$: .ASCIZ <200>s#DATA= # 
4 026746 66s: 
4087 746 Lowe RDOCT 
4088 750 012637 026766 MOV (SP)+, 13 
uose g26754 Q04537 26242 11$: JSR RS, SOUTLP ;OQUTPUT ROUTINE. 
4091 760 026770 125: .WORD 14% ?DEVICE ADDR. 
026762 026766 “WORD 13% DATA 
4 33 026764 000716 BR 215 
oo0000 13S: .WORD O 
4OSe OBE70 BODOED ta; = “HORD. OO 
4097 0267 7e 190001 042504 oO44526 205: "“ASCIZ <1><200>#DEVICE ADDR= # 
4098 o40440 042104 


7 2503 
4099 027006 036522 000040 


4100 EVEN 
4101 

4102 

uio4 

4105 i THIS ROUTINE oe THROUGH CURENT .DVLS FOR A/D ADDR. 

4106 :IF U NF OUND , GENERA Pr Babar THIS ROUTINE’S WHOLE PURPOSE IS 
4107 :TO SET AM TO LINK TO FILE “DRLPX2” FOR 
4108 SAMPLE T 

4109 : acta THE R PROGRAM MUST SET UP 

4110 : Az0 cs N BSEL’4 

4112 : ;CALL SET UP ROUTINE. 
4113 : 7FORD *ADOR. OF A/D CSR. 
4114 : ;RETURNS HE sar BSEL 3,6,7 PERMINENTLY SET U 
uiis ; UNTILL One DOES A RESET) 
4117 : (3) THE USER MUST 906 I INTO KMC REG 2 TO 
4118 : START CONVERS BN | Si a WITH MOVE INSTR.! 
4119 : (4) MONITOR KMC RE Ger DE 377 (DRLPX2 IS DONE) 
4120 : (S)READ KMC REG 4.5 FOR A/D RESULT. 

4121 : (6) TO TAKE MORE SAMPLES comEEY PUT A/D CSR INTO 
dige : BSEL 4,5 AND CODE 6 INTO BSEL 2. 

4124 027012 012537 027022 SPUTS: MoV (5)+,18 ;GET ADDR OF ADDR. OF A/D 


7 CALL thts OUTINE: 
PUTS 
Pp 


rma 
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DRLPB.P TRAP TABLE 

4125 027016 004537 026340 ISR RS, SINLP 
W126 027022 raat 1$: - WORD 0 

i188 RSzRs! g26402 152416 HOVE SOF», aknane 
uiSo Bssoa2 13959 Gsedes deodes Mov, ois.as 

4131 027050 062737 O00002 027062 2,e$ 

41 026340 ; JSR RS, SINLP 
133 Bese pogeeR es: “Hep Ge 

4135 027066 113777 O26402 MOVB SOFS, IKMAD3 
iB Gartes tester Bone iemg = BEB eG aks 
41 5105 53 125330 ‘ #300; JKMAD3 
4139 7116 RTS RS 

4140 027120 9o000 10$: .WORD O 

4142 000001 END 


———_— ees + - 
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2931 


1925 


2984 


242e4e 2438% 2443" 


SEQ 0094 
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1887 
1832 


2064 
2932 


1461 


978 
1371 


1890 
1860 


2078 
3894 


1651 


987 
1890 


O000000 
.* ttt x Be 
aay a ares i) 
NOW £Wru ao 
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CROSS REFERENCE TABLE SEQ 0096 
| 
17598 | 
17898 
| 


| al | 


2405 
1805 1822 1837 


Speereeeueeeeenennnnne 


OO OF OF OE 18 18 OF OF OF OF OF OD OD OO OO OO OR OF OO Ob Ob On 08 OO OD OO OO Oe VO 





2l2e 2192 2210 2234 2262 2291 2360 2930 2983 3007 35388 


“i 
POUND 


Oe ek ed ed ee ee ed ee 


1864 1907 2404 24208 


ee 
£ 


— 
F; 
ir 

vio 
BeoNQes 
roe 
se 
ave 
Rica 
_ 
g 2 
@ 
= 
wu o 
=o 
— 
@ 
WwW 
o 
~ 
a 
Oo 
_ 
w 
fu 
W 


SS SCSCSCCCTCSESESSEECSTSCECSESSSsSeece 
oo S| 
WwW o 
Sh wo 
ruru 
-O 
ow 
to 


147’ 20 2014 2021 20$3 2063 2077 2087 23448 
a 1382 54 x 2018 027 038 2069 e082 2092 ei7ee 2173 2184 
001540 4 77 679 630 3 705 707 848 863 1088 119 
1136" Bt 1 Mi 1444 1463 1815 1623 1722 1993 2014 2031 3125 
001542 4608 1 el 732 734 747 749 851 870 1118 1209 1213 
4576 yes) josne 1445 1462 1520 1624 1724 2004 20eS 2036 2131 2200 
001544 4618 762 764 775 777 790 732 8S4 877 1226 1230 1294 
2876 ee 1448 1467 1523 1627 1726 2083 2077 2097 2135 2ee0e 2eeS 
001546 46e8 806 808 819 821 834 836 857 884 1243 1247 1311 
131 188 * 1449 1466 1524 1628 1728 2063 2067 2087 2'03 2139 2204 
eee 2e7 e8e4 
= 177570 38 253 495 
001532 4S68 2147 2153 


Gos” 
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ORLPB.P11 CROSS REFERENCE TABLE 
OFO 021122 g} 4 oasie 353 359 365 371 377 383 389 395 401 407 413 
Rett 3 017370 339 ote a 351 357 363 387 265548 
Bas 1747, 333 4 411 417 26678 
24 3 381 26608 
DISPLA 1142 iH 49S% SO3® 2966% 2967% 
os 174 1868 
LPXe= BERHEEH GC doe 
= jg 70 88 4 
OT1 1 mat 28168 
OT13 021076 78 
T14 1 4 412 418 28298 
 # itt 
bra 1pa4 Bs 
| OTS 021056 364 r} 
OT6 70 370 382 28268 
| DYNC 1 4 2208s 
MTVEC= y HOCe 483% 
M1 1654 a 
EM? 17094 335 
Emia bl zie3 338 : 
EM13 17 338 38 
aie 17 404 a 
m1s 17 410 4os 
Eme 017 416 498 
EMS 016627 350 Sease 
EMS 166 978 
167 8 
M i 529 1 : 
| ERRVEC= 000004 1508 4 493% SO4* 649% 669% 17SS* 2111 2937 2938* 2940 2943* 
fe ae Fh Fig 
ven 1164 467% 634% % 637 1385 2827 28438 
EVER1 11 468% 1436 1442s 2844s 
rite pide 40 g3 3 2323 2326 2331 2334 2340 2349 
FouNp1 bi7e39 Ear" Bepee 
FOUNDe 017557 633 26818 
FULRMP Rieti. B35 17138 
FUNDAC 015112 20. 2035 2096 2102 23998 
GAbbaR O1e4oE Suse sSuat = See 
= REREHE U 1 tae: 38 3531 3532 3533 3534 3536 3538 3539 3540 3541 3585 
3639 43 3647 3875 4061 4085 
GSTAT 015410 19S4 1957 1968 1971 24578 
GTSWR = 104406 35368 
+ al : ri “ihe 3223 3264 
= 
INCR 021146 2aoe 8 
INITI 0022eS4 S29 S678 


08 
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BarBBERIt-P™"Phoss nePEAdn’e PABCE°S sea 0036 
IOTVEC= 000020 1SS8 480% 4B1% 
Mv tte ase 2d5.. eee 3ei% SS2 1392 
KM Bete wet iu eaux 42335 3606 3662 3722 3724% 3726% j3727% 3734*  3739% 3819 
KMAD1 001440 4328 518 
KMaDe)=—ss« OO 1 #42 4 ge 3611% 3624 3664* $3678 3692 3705 3773% 3778% 37828 3804 3821% 3838 
K 001444 4368 4135S 4138% 
KM 3 001446 4388 #3626 3631 365S* 3657% 3659* 3680 3723% 3728% 3731%  ##3740% $=$3772% #$=®3776# 
3781% 3803% 3823 3840 
KMADS nists 4408 
K 14Se2 4428 3725% 3735 4128% 44136 
K 7 mi 444e es 4129% 4137 
s S318 ates 1714 1747 2118 2191 2209 

L = 4 1 64 
LOADVC 4 s 5 98 
LOW 114, r} 
LPADH 001450 4398 
LPADL OO01446 4378 
LPCI 001436 4288 

1442 4338 
LPMR 1ie3 4318 

14 4418 

1454 4438 

1444 4u3S¢e 





i 


& 
MO 002250 S648 S 
MESIS 016232 1441 25468 
MES3 16135 2261 25358 
MES6 ogee 1433, 2542 
NeODO0 760 1989 38 28078 
OPRIN 021170 1325" 1378" 138u. 562 S84 S86 Ses 284Ss 
be =SpOBO> Bis SoBe 567% 641% 893% 1161% 1176% 1193% 1210 12278 1244* 1261% 1278% 
* 1312% 13768 13838 411%  1414* {424% 14 14S51% 14Sex 1453" 1469% 1470% 
1471" 150S* 1518% 16l2e% i622% 1696% 1714% 1723 1725 1727% 1729% 1740% I1741% 
747% 772% 17 4 1937 £ e018s 027%  2058* 069% 208 * * 118%  2121% 
167% 161% 191% i93% 20 . elle 213s geist 230s 25 . ecebs 292% eea5* 
%& % e & 
g25h% ; y §30R §i735 Siids Sa94s Sages Seeex ess 393%. 35485 
3774% 3779% 3783 3egex 380S* 3822% 3839% 3870 4oos* 4035* 4038* 
PICO 0074 1437 14448 16 I 
PIC1 007502 1455 14628 2382 
PIC3 010024 1473 1S14# 2383 
PICY 010562 1614 16188 2384 
PICYWB O106le 16238 
PIC6 011264 17128 2385 
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ORLPB.P11 CROSS REFERENCE TABLE SEQ 0099 
PIRQ = 177772 678 
PIRQVE= bo0246 a 
PR1 = 858 
ons = 1 86% 
PR = 1 878 
PRY = 888 
PRES S08 
= 
PR = Sis 
| PS = é 76 648 6S S2es*x 4030 
< phen Lsze “* 1758 17678 
= 
P b3555q 3092 30998 
| PWRVEC= 1568 486% 487% 3061% $3062* =$(3071% #+#$®%$B:o77*  3089* 3090 
P3 10124 15278 1615 
P3A 010252 1S43 15498 1562 
owe 10332 15658 1320 
P3C ad 15818 1594 
P30 10472 15978 1611 
PY 10662 16318 #1699 
PyA 011010 164 16548 1669 
P4B Bai} 16788 1695 
P4¥9976 020773 2010 2073 28118 
P7CNT EG Seuss 
| P7PNT 1174 28478 
| QMARK Q17517 rsh sh 3 26728 
HR = 104410 7 t 
IN = 104411 76 3418 35408 
RDOCT = 104412 35418 4068 4087 
| RDI 026142 3806% 38438 
RESVEC= 000010 1518 
OUTPT 0O1S0Se 2376 23818 
RTCCSR O2e6614 Og 4029 * 4044s 
RO =%000000 8 515 S17 S20# be S4O# S41# S42 S4u4e S46% 10S4# 1071 
12 * 1h * 1haze 13338 1339 360% 1369 1421 1424 1541 458 # 1S64% 1S77% 
1 * 1 % 36 1610% 1646 1668# 1677 1694 e2123% 2124 12eS* 2129 2133 
2137 194% e2 2lex 2l4# e227% e2228% 2245 e2256% e2273% 2311 312 2349" 
S3 3 378 65# 7 469% ale 470% 62 28728 876 2892 
ee. See Bee ae ee i et Bet ges oe ee. Re 
3438 3449 by 61 4s S* 3Ge6 3Gag% 07 3508* 3509 3510 
11# oh * * 37 7el* £ 735 ee 3767 768% 769% 71 3225 
3784 at 1% 1s 894 # 13% * 3957% 
ROX 007470 in 1448 14568 1462% 1466% 14 1498 1511 1722% 1724 1726% 1728 17 
| ROY 007474 14588 
/R1 =%000001 738 51 18% Bee it * 533% S34% Ss =) S46 S47 48 
2124* e214 6% 2253% 2276% 2279 315* 2314% 2315 318% aie 2326% 2327% 
2336% 2340# 350% cree 464 2466 246 2472% 24778 63 * 2877 88 
2390S* 3064 67% 416 s42e0% 342e4*e 34ebs ese 3431*% 3434 3437% 50 3487 
3598 99% 32008 3608 3651% 3652 3657 6S9 3686* 3855 3856# 3859% * 
3869*% 3 *  3903% #3906 3912e% 3937 3940 3946% 3949 3956* 
R1X 007476 14598 1519 1523 1S32 1538 1552 1ssS 1S84 1587 1623 1627% 1638 1642 
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DRLPB.P CROSS REFERENCE TABLE 
1667 1677 1691 1694 
aa” 7472 144S# 1449% 14578 1463% 1467# 1492 1509 
& =ppo008 748 S31 533 S35 536 537 1466% 1495S 2127% 2131% 2135% 2139 
144 Ht 2280 64 2875* 2879% 2882 eses*e 2890% 2891 2896* 2904# 
# 17 3421% 4MOS*e 3427% 342e9% 3435 3436* 
Rey 007500 14608 1S20% 1S24% 1534 1540 1568 1571 1600 1603 1624 1628% 1636 
1$6¢ 166S 1674 1686 1669 
Ree o2042e2 e78 r 
=~%000003 s 148S# 1503 1S2S* 1629% 2147% 2148% 2153% 2154 2865 2873% 2874 
2891 * e901% e2903% 30 3085* 3141 31S50% 3156% 3157%  3160% 316S# 
316 176% 3373 3374% 33 3378*% 3379 3383 3385 3387% 3389 
| R37 020534 2017 27778 
R38 020310 1996 27498 
R393 020601 2026 2784s 
Rey =~000004 768 1484" S2b* 1552 1568 4 1600 1630 1662 1686 1691 3067 
314 3144s 14S% 3146% 3147 3148 3162 3164% 3172s 3175% 3719 3744% 
R4O 020355 2005S 7568 
R41 020646 2081 7318 
R43 020713 2091 738% 
Ry 020467 27708 
RS =~%00000S 778 14% 653% 656% 659% 662% 66S* 677% 679 # 692% 70S* 
719% els 732% 734% 747% 749% 762% 764% ocye 777% 730% a 
808* 819% 1% 834% 836% g4ex 851% gS4# 857% 860% 863% 70% 
BSYx % 7% 910% 916% 919% 930% 933% 939% 942% 9S4# 7% 
967% mee 1% 7% 990 1000* 10038 1014 1017% 1028*% 1031 1042 
ies «ottess lives divas iises 1196s 1209 Ss idtae iseex iesoe ieage  lou?e 
1264 11635 1281 12gu% id * tains 1315% 1328 1558. 15 3% 153 ¥ 1Suox 
1364 1367% 1374% 14778 1481% 1464% 1492% 1495 1498 13008 1S03% 12028 
1517 1532 1 ae 13398 1S40# 1S46% 1549% 1S5See 1555* 1557% 1560% 1 * 
1573% 1576% 1584" 1587% 1S589% 159e% 1600% 1603% #1605 1606 1621 1636% 
1642 1644" 1651% 1654% 1657% 1660% 1 * 19635 1667 16748 iece 19eh8 
1686 1689% 1691 ete 1719% 172eex 361 ae bad 1760% 1768% 1 1 * 
1804%  1817% 1 *  16821% 1835% 1e% gaa 18S0% iy ies its % 1881 
1 i 1 bl 1 *  1906% 1907% 192e2% 1923% * 19418 194S# 19478 19548 
1960% 1 *% 1971 O74 2 aege 993% FP % * 2014" eis 
s° % x sot % % * 2b % * 7% % 3 x 147% 
Sit Seb, sets Sauer Sasis Sesue Soucs | Sauce | Goan" 5S: Escee | 5558" 
| Sidua Susp Susge | BaaTs i Siigs Sauis Suggs Saco Seeex Sa%ds 5877s 
% 2088 oe shiz ah tae 3151 153% 3154* 3155 os 2173 
3613% ##3667% 368 4 OMe 74S it] * B2eS* 3842% 3909 14% 3917% 
3958 4 3976 3981% 3982% 3999% 4073% 4090% 4125% 4132% #4139% 
Fo =~%000006 oe 474% 475% 476 
R7 =% 07 738 
SDELAY 026532 W9ese 
SELDO1 017604 1751 26868 
SELDe3 Rt 7eah 5gte 938 
SNDVLT 14532 198 003 2048 2072 311s 
SP =~000006 808 478% 492% SO0# S04 51S S16% S26 S74 7 628% 
1418% 1435% 1713 1746* 2110 2117% 2190% e2208% 2378 2463% 2464% 2472 
2474% 2477 2478 286e*% 863* 864%  2865* e866* 2867* 2868 2871* 2884 
888 898 $209 2902 2303 2904 2905 9 2e908* e2909*% 2937% 9 
2943 S 2967* 2989 3019 3024* 3045 3049% 3063% 3064 65*  3066* 


KO8 
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ORLPB.P11 CROSS REFERENCE TABLE SEQ 0101 


* 9# 3070 78% 3082 3083 3085 3087 3093% #3133 
3134 3h 3136 ahiie 3142e% 3143% 149 ait} i Ye 3177 178% 3206 
7 17% 3219 sis 3223 27 363 it 37% # 49 
35n3 y ae70 78% » 380 “4 1% % * 3% 
ll lex 1 1 3% 3326% “% % 30% 
334S# 6% 3349 i 351 S*# 3356 3364 73% 3378 
3393 390% saai8 * i3% 14% 15% 25* 17% 1 342e2% * 3431 
3433 34 36 38 9s Ci Ss 3458 3 3470 1# 61 
gdese 87 88 7% a508 Bs 19% $303 3589 98% 19% 
720% 74 4 7% 84 bal 1 3855 9 3894 9s* 3912 13 
3936% % 7 4069 4077% 4088 
| ge RSs 0 vgs icy ¥ Fase° 3°83 
TACK = 1100 . SSs 478 S 14 171 1746 2117 2190 2208 
STAT 001536 4S88 S40 oa 860 896 3907 910 916 919 930 3933 939 942 
yy 9S7 4 7 978 981 A 930 10 1083 1940 1017 ices 
1031 104e 104S 10$9 1062 1076 1078 1090 110 110 1120 1137 114 
1143 1160 +188 1175 1179 1328 1330 1333 1337 1345 1360 1364 1367 
1374 1387% 1477 1481 1484 1500 1503 1$17 1S2S 1S46 1549 1SS7 1560 
1$73 1378 1589 1892 1605 1608 ies 1629 1651 1654 1657 1660 1681 
1684 1719 1722 1803 1817 1820 183 1849 1863 1877 1881 1887 1890 
1893 1839 1 1922 1933 1941 1945S 1947 1960 1974 2141 2240 2242 
2e4S 2e51 2272 2273 2816 2826 2827 2829 
STKLMT= 177774 668 
ST™x = QO00001 280Se 2807 2811 
or ae Bhi ois 1288 ‘79e 
114 8 476 & 02% SO9* 1130 1187 1204 1221 1238 1255S 1272 
1°63 1308 1323 1355S A? 464 1477 1487 Se 135%, 1542 1625 1631 
164 171 2ele3 el 21 2235 2247 2258 e226 2274 2362 2932 2346 
2948 2954 e992 04 3 3274 3311 
SWREG 000176 1878 S02 74 87 
= 000001 1198 
= Be R DBS 1098 119 
= 1088 118 
= 000004 1078 117 
= 000010 1068 116 1446 1464 1521 16eS 2274 
SWO4 = 1058 115 
SWwOS = 1048 114 
SWOB = 1 103% 113 
subg : Bo0500 ibis «Tit 
a . 1 ives 110 1187 1204 1221 1238 1255 1272 1289 1306 1487 1527 1631 
Suid : ea ane 1323 1355 1477 1542 1647 1715 
12 = 978 2258 
SW1 = O20000 S68 
SW14 = 040000 9Ss 
SwiS = S48 
a5 = poDOO ties 
= 
me: Boe ie 
= 
SWE 100 1138 
SW7 = 000200 lles 


SEQ 0102 
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LOS 


MACY11 27(654) 


eed PAace’*"*° 


CROSS 


~11-DRLPB-A 


ll 


DRLPB.B 


DRL 


& 

nw 

~” 

@ 

tu 

3x 

@ o 

o a 

@ bid] 

cw tw 

=z « mm 

BS f 

wu % wu 

x mK * 

w wuo wo 

TFT OWrwo i 

= ™OM ™ 

— cru a7] 
m =O in o 

—" 

~™ ure t uw 
—- w00OW ~™ ™ 
“a are wu _ 
MON CU >; Of ODN GY KoMORs wo 
—y 
OF AM s @ un Oo Stiste + 
indo ™ Tr Son hen hen] ju cucutututU ~ 
“aT tf rom ieon hem l ht ht ttt 
Suma FF TM F KR AF NO O HHO POT HOTU TOMLTT ONT. 
4 = _ _ _ 
~ on a wo % rT XO = = QUART DUT ROOT FB | phen del 
rurTor m Or Tr O RR @W Q SCOOP TOOOD000 3 DEUCUMNMMM 
Ure CUM cut OE td dd mad ed od mt td 


BSeSesexunne B s & 


Ser Seer: Br Anna SSeS Meee rate Ea hc TUM CTS 


UT Cut 


S88=—=== on Ian ieee Ieee eee Rae oon aed 





Sen ene 
Eeeeeeseeuuumaaraasansss 
ES 


Pee ieee arererarererararey o ed 
ro} at a btataterelererereterecctinii eee eT td od al ad ad ad od 
[e+ vy WV ensensensensensensensen! OOIUMNUMN MU NUIMUNMNUMMNMNUUNUUMNUUMUMNUUNUIMNUWIUIIU 
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1 
SBDADR 001122 


CRLPB.P11 CROSS REFERENCE TABLE SEQ 0103 
i 
TE¥8, B83 245" seus 
TST ll 17668 
TST 115 17798 
‘Terea olives laos slgivs 
t8t Ss 1865 18318 
TST 1 ge 184 184S8 
TST 121 1854 18598 
TST6 722 728 
TST60 1 1868 18738 
TST6 15635 19028 
TST 1 a 19 19188 
| tated 015014 1gags 
| Tate BY seuss 
| Hees = Seaane 141838348 
= 
O44 74 7 7 
ed ate a a a a 
386 $368 3938 3973 33 3381 3384 3388 35308 3583 3637 3641 3645 
3873 4059 4066 83 
e330 3050 3288 35318 4078 
e2 35328 
a 4Sue 616 1387 1388 1389 1390 1391 
VCXTMP 17028 
17038 
T YUG 
C 447% 
ce . 14358 
WERT 4 1333 1393 
1767 24538 
ve4 1771 1780 1784 2454s 
5a¢ 604 
1 3771% 37668 
we 3775% 37878 
W3 3780*% 37888 
2399% 2401 2412% 24178 
XPOS 17058 
17048 
17078 
SAERR 614 3590* 3683* 37098 3999 
THD ele 2188 
3475 3490 
SATYC 3446 34488 
34449 
34454 
T Enh a 
4 82 3 
BAS 1S# 41 608 
| 
| 
! 
| 


MAINDEC-11-DRLPB 
ORLPB.Fil 


SBODAT 001126 


BERS 
a 


8 


Ae 
Vn 


Seon eSeS 
BRON ENUM 


coins cust 
mR 


oa 
BRRenes 
So58 


001214 
SENvM 001215 
Eber Boreeh 
ee 
RFLG 804i 
Genrer Beidte 
r 
SERRPC 001116 
RRTB 1 
GER? S2iFee 
SERtTL OO111 
SETABL 001214 
TEND 001256 
AtAL 001176 
FLG Ge41 74 
SFILLC 1156 
SFILLS 001155 
$GDADR 001120 
$GDDAT 001124 


c 


AA11-K 
ROSS REFERENCE 


IAGNOSTIC 
ABLE 
608# 14 
821 B4¢ 
19931198 
ieoex 1ha9 
4218 1392S 
e822 
se30" 3247 
38 
473 U?7Yy 
2658 e668 
2658 2668 
264 
fa ley 398568 
3988 
33978 
3010 
3840 38448 
907 29158 
43e¢ 14288 
Sils 
14248 
14328 
14318 
2997 3208 
507 3210 
140S# 
4348 
el 2950 
2970 
29828 
2816 2818 
3; 
3OiFe 
e9ss* 3010 
3188 
3481% 
S447 3475 
3233 3264 
3264 
74% 77 
29s 32 
786% 730 
839% 860* 
916% 919 
3990 1000 


MACY11 27(654) 


616% 6793 
863 870 
seks 
1533. 1824 
1926 1947 
2824 28e9 
32e56% 32618 
482 488 
3018 3037 

3955 

34S3 3477 
3215 3455 
essex 2970 
2820 2822 
3484% 34928 
679 87% 
734 43% 
732 795% 
863 A67* 
930* $33 
1003 1014 


08 
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692 707 7e1 
877 884 896 
1031 1045S 1062 
1247 1264 1281 
1838# 1839 18Se# 
1960 1974 2144s 

489 

3042 3046 3229 

2e98s* 3010 

2e8e4 2826 2827 

690 692 701% 
747 749 7Se% 
803* 806 808 

870 874% 877 

939% 942 9S4# 
1017 1028* 1031 


734 749 764 
910 919 933 
1078 1090 1091 
1298 1315 123 
18S3 1866# 186 
2147 2153 2448# 
3264 3313 3397 
28e9 2989* 2990% 
705 707 710% 
7S9% 762 764 
816% 819 821 
881# 884 89e# 
9S 964% 967 
1042 1045S 10SS# 


2991 


3010 


SINTAG 001135 
SITEMB 001114 
F 001172 
F 173 


BREA 
2 


ree a he ay A 
fu 


5282? 


yepenen 
es 


ane 
SSSSSS8888 
RRRFSER 


: 


PERKS Zhou 


z 
roe 


v) 
a 

Sa 

_ < 


felelotatststmy 


BE 


eee 
44 
<< 
vv 
poeneene=ee 


A 
Sh 
Oeorrrr 


wn 
z 
= 
=~ 
w 
4 

" 
oul 
=f 


‘ikea 


224 
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27548 


S06 


34908 


3479 


BO9 
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SEQ 0105S 

1114 1ll2e2e% 1160% 1164 117S* 1179 1192@% 1196 1209% 
1264 1277% 1281 12e94* §8§=«1298 1311#% 1315 134ee 1345 
1780® 1803* 1807 1820 1824 183S* 1839 1849# 1S23 
1890% 1893 1906% 1910 19228 1926 1941% 1947 19$7# 
2147 21s0* 2153 e40ee e2413% 2465 2816 2818 2820 
2969 

662 66S 679 692 707 721 734 749 764 
836 BBS 87 877 884 896 910 919 933 
3990 100 101 1031 1045S 106e 1078 1090 1109 
1196 1213 1230 1247 1264 1281 1298 1315S 1330 
1481 1500 1546 15Se 1557 1568 1873 1$84 1589 
1662 1681 1686 1691 1719 1881 1887 1893 1947 
eete 2e51 2323 2331 2434 2438 39368 3999 4073 
3021 

3397 


2965* 2967 2969 


3802 3805S 3822 3839 385Ss8 


2964 2997 3208 


3483 


ziss 7258 738% 7558 
S478 


7818 7998 8les 825s 


7688 
971% 993% 10078 10218 10358 10498 10668 # «10978 


rnmnia 
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ORLPB.P11 PeCROSS REFERENCE TABLE SEQ 0106 
11258 11528 11678 11828 11998 12168 12398 12508 12678 12848 13018 13188 13508 
it i7e38 417768 «#417968 18iis i8288 8428 i868 18708 18998 19158 19348 {9828 
Sof3 _* Geese ee ee 
i a i a a a ae 
10141 1Bs2 1869 1976 1668 1107 1118 11371901160 11781198 
ee a ee a: ee a 
156 is?71 157% 1887 1892 ° 1603 Og 162i 1636 «1638 leN2 16441658 
 HuREP RE BE EE eee 
4374 = «3388 SOR S«SO8} : 503 goss 808 «Ciba SiS «= S4ig «= S432 8438 
we «= = = 
Pnee 661362 2738 *» “03x [409 T4idx 1418 1431 2956 2970 
Spurs” berate ioe 
SPWRAD 022262 30548 
see 486 30b1e = 3089 
Be Oe: Ee 
1170 8 10 3264 3332 3381 3397 
SROCHR 23334 gauge 3539 
SROLIN O2aied 33738 3540 
T 34138 3541 
Se0ee = 00t Sabet 
SREGO 001162 548 
SREGt, 82453 : Mg) 1176 «11931210 ze7_ 1244 bl 1278 129513121376 1383 
SRTNAD 007332 iu308 
= BHHHERE U 
02647 3976 39848 
* feeere © 337 78 3079 3080* 30988 
8c G25 4 3028. 
SSETUP= 000117 sogu 14728 479 480 uB2 4g4 4e6 4ge 489 «1407,s«2930—Ss«2983~Ss«30007 
3009 326 3403 
SSTUP = 177777 3368 «728 
SSVLAD 021602 2541 29638 
Seurn° = tesdod ef 71 17 7 174 ? 7 7 & 67 4B 489 
yao" ga B54 b25 $73 716 428 478 472 —Ss«S88 85 Prat 
(ee e 2 oe oe el we ae ee 
1404 1382 a CES Ch 1931 178717801800 1818 1Bse 1 BH 
e600 «3873s «3808 = 4akP 338 BBG SGt SARE SaES CSS «S5G53 SS 5G9G = Sq 


DO 
Ree fore pal AK DieaNosT IC MACY11 27(654) 14-DEC-77 20:20 PAGE 34 
DRLPB.P11 CROSS REFERENCE TABLE SE@ 0107 


2388 e332 3004 3008 3010 3095 
HifeS  ooitee Sop cseer | 200 DNSE SREY SBR SRE HEME LASSE Jazsy gee ye0ge  agzgs 
fig gauss oa Be il BY BE EO es 
ne ee pe a pp 
ree 0 Te 3b3e 138" aie ae" 1 : ite ise 13a 1053 
Ns cc TC Sc 
fare isc, daest ie, Hot tal, Haas Hes, Hae tse, Hay Hae fap 
ia. Het HB, HTT IBS IB Sg 
ee, es 
O# 1863 lavas ig7?- 1878% igare 1890 1 he i i * i§ 191 : i 23 
| ecm a Om A cm MN 
SC Ce a 
= son co ei woe e we mg at 
a a a ae ee Si, oF 
fae vie, ie fees tee Te Hilo Ute ie. ie HY HR, Hy 
Hag jiet, iste tsb isl) ist, dopa Hoes isel Hees, Hest ieee das? 
an ae an ae a et 
ron pen ase UT Ue Sit Ne est 
Sipe Bolle? seit dese’ Hees 
ee 
Bo an® ere 43 geese geak . 35328 35338 35348 #35358 3536 35378 3538 35398 35408 35418 35428 
$7ehn 001004 eels 
STFyIN B23 sos p 574" 4330" 4407" 423% 2921 2348 2963% 2964 2966 2970 2987 3010 


betes 
os 
oe 
Gn 
2 ee 
NG 
om 
No 
F 
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MAINDEC- 
ORLPB.P1 CROSS REFERENCE TABLE SE@ 0108 
| STYPDS 28618 3534 
| sive ® 332 3522 3530 
| STYpEC 2 3246 3eSl# 3252 3318 
TYPEX 3 32628 
: 1388 1 
vo gist. ahie 3533 
SUNT! 18 610% 617% 620 628 634 637 640* 1384* 1385 2827 
op sane 
ie bes 
gtk 138 5S0 sS4 
VECT 3148 
SXTSTR 29358 
SSGETY= 14238 
SOF ILL 3134* 3138% 3148 31838 
S4OCAT= erat 
° = 1818 1858 1 1978 1998 2018 2028 8 2098 2lls 2138 2318 270 
4Se8 477 489 1431 1435 17958 2288 e9iSe 2969 2970 3010 30568 3073 
3097 3264 3267 33968 3397 3403 34938 35438 35448 3952 40628 
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